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

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

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