Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Гриха   (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;

---

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

Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c