Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
11-1178249686
Infarkt
2007-05-04 07:34
2007.11.25
VCL вместе с KOL


1-1188801005
KOSS
2007-09-03 10:30
2007.11.25
CorelDraw


2-1193750843
DimOK
2007-10-30 16:27
2007.11.25
Как защитить свою программу от антивируса


2-1194206035
неугомонный
2007-11-04 22:53
2007.11.25
цвет шрифта toolbutton


15-1192629525
исследователь
2007-10-17 17:58
2007.11.25
ALTER TABLE в Delphi




   Наверх