Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Рабочий стол Найти похожие ветки
← →
Станислав (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;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.052 c
