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

Вниз

Рабочий стол   Найти похожие ветки 

← →
Станислав   (2004-02-06 18:07) [0]

Как из программы можно поменять обои, заставку в Win98/2000/XP?

---

← →
Iks   (2004-02-06 19:54) [1]

Поищи на форуме, ты не первый !!!

---

← →
KalmykovSergei ©   (2004-02-07 15:46) [2]


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\EXP.bmp", 0);// можно GIF,BMP и JPG
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

Не забуть в uses CommCtrl,ComObj модули вставить

---

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

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

Наверх

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