| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

программно установить картинку на рабочем столе. [D6, WinXP]

Wassily ©   (2003-04-13 16:44:00) 

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

---

Songoku   (2003-04-13 17:54:00) [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;

---

Наверх