программно установить картинку на рабочем столе.

← →
Wassily (2003-04-13 16:44) [0]

Как программно установить картинку на рабочем столе?

← →
Songoku (2003-04-13 17:54) [1]

procedure IWCMD;
var
Reg:TRegIniFile;
t:TBitmap;
begin

t:=TBitmap.Create;
//Битмап ты жолжен сам указать
t.SaveToFile("С:\Windwos\Temp.bmp");
Reg:=TRegIniFile.Create("Control Panel");
Reg.WriteString("desktop","Wallpaper","С:\Windwos\Temp.bmp");
Reg.WriteString("desktop","TileWallpaper","0");
Reg.WriteString("desktop","WallpaperStyle","2");
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);
end;

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