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

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

← →
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;

---

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

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



Память: 0.44 MB
Время: 0.014 c