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

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

← →
San1712   (2007-10-02 01:17) [0]

Есть ли какие то стандартные функции по смене обоев ? Если нету то какие параметры надо менять в реестре ?

---

← →
ElectriC ©   (2007-10-02 02:31) [1]

ИЛИ:
...
var Wallpaper : string;
...
begin
  Wallpaper := "C:\MYPICTURE.bmp";
  SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, PChar(Wallpaper),
  SPIF_SEN DCHANGE)
end;

ИЛИ: HKEY_CURRENT_USER\Control Panel\Desktop -> параметр TileWallpaper.

ИЛИ:
uses
ComObj, ShlObj;
procedure ChangeActiveWallpaper;
const
CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
ActiveDesktop.SetWallpaper("c:\MYPICTURE.jpg", 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

---

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

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



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