Фоновый рисунок рабочего стола

← →
Гриха (2005-08-10 07:42) [0]

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

← →
begin...end © (2005-08-10 07:51) [1]

SystemParametersInfo

← →
Big Joe © (2005-08-10 07:59) [2]

uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create("Control Panel");
Reg.WriteString("desktop", "Wallpaper", "c:\windows\Установка.bmp");
Reg.WriteString("desktop", "TileWallpaper", "0");
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

← →
Duracell © (2005-08-10 08:44) [3]

SystemParametersInfo(
SPI_SETDESKWALLPAPER,
NULL,
BmpFile, // <-- Wallpaper
SPIF_SENDWININICHANGE |
SPIF_UPDATEINIFILE
);

← →
Bekzhan (2005-08-10 08:57) [4]

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:\windows\forest.bmp", 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

← →
Bekzhan (2005-08-10 08:59) [5]

{Обновить}
uses
ShlObj;

procedure RefreshDesktop1;
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

Фоновый рисунок рабочего стола Найти похожие ветки