Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Смена обоев   Найти похожие ветки 

← →
Delphis ©   (2004-10-04 17:59) [0]

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

---

← →
Zeqfreed ©   (2004-10-04 18:48) [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

---

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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.048 c