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

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

Смена обоев [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Delphis ©   (2004-10-04 17:59:00) 

Подскажите, как сменить картинку рабочего стола!

---

Zeqfreed   (2004-10-04 18:48:00) [1]


uses Registry;

procedure ChangeWallPaper(filename : String; tiled, stretched : boolean);
var
r : TRegistry;
begin
r := TRegistry.Create();
r.RootKey := HKEY_CURRENT_USER;
r.OpenKey('\Control Panel\Desktop', true);
with r do begin
 WriteString('Wallpaper', filename);

 if tiled then
  WriteString('TileWallpaper', '1')
 else
  WriteString('TileWallpaper', '0');

 if stretched then
  WriteString('WallpaperStyle', '2')
 else
  WriteString('WallpaperStyle', '0');
end;
r.CloseKey;
r.Free;

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

Ставит BMP обои... для установки JPG их следует конвертировать в BMP

---

Наверх