Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

Поменять обои рабочего стола   Найти похожие ветки 

 
allucard   (2007-05-15 11:52) [0]

ДОброго дня.

Есть код на С, помогите перевести:

#include "stdafx.h"
#include "windows.h"
#include "iostream.h"

void main()
{
char filename[10];
strcpy(filename,"1.bmp");
if (SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
 &filename,SPIF_SENDWININICHANGE)==TRUE)
{
 cout << "Ok change" << endl;
}
else
 cout << "Error change" << endl;
}


Вот моя не рабочая версия:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
Label1.Caption := inttostr(GetDesktopWindow);
s:=  "C:\1.bmp";
if SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @s, SPIF_SENDWININICHANGE)
 then ShowMessage("Ok")
   else ShowMessage("Error");
end;


Спасибо.


 
clickmaker ©   (2007-05-15 12:09) [1]

Pchar(s) или @s[1]


 
allucard   (2007-05-15 12:25) [2]

Спасиб.
А что это значит?

Как я полагаю в Windows другая кодировка.

Но что на самом деле произойдёт с этим стрингом?


 
clickmaker ©   (2007-05-15 12:38) [3]

причем тут кодировка Windows? просто адрес строки


 
allucard   (2007-05-15 12:45) [4]

угу



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.046 c
2-1194052753
kolj
2007-11-03 04:19
2007.11.25
Как динамически создать обьект на форме , например ListView ?


5-1163604047
--= Eagle =--
2006-11-15 18:20
2007.11.25
EClassNotFound


2-1193841083
Tonich
2007-10-31 17:31
2007.11.25
Фильтр


2-1194165050
savyhinst
2007-11-04 11:30
2007.11.25
Классные константы


15-1193302975
pavel_guzhanov
2007-10-25 13:02
2007.11.25
Как из командной строки добавить к имени файла текущую дату?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский