Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.25;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2007.11.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1193721081
Ypbi4
2007-10-30 08:11
2007.11.25
Потоки


1-1189061309
tomkat
2007-09-06 10:48
2007.11.25
Переменные в Fastreport 3


2-1193413319
3Lander
2007-10-26 19:41
2007.11.25
Скажите пожалуйста, как можно очистить TImage от загруженного рис


1-1189005868
andreoman
2007-09-05 19:24
2007.11.25
доступ из подчененной формы к полю формы-создателя


15-1192887600
Tirael
2007-10-20 17:40
2007.11.25
есть ли способ