Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.081 c
3-1078892701
garry79
2004-03-10 07:25
2004.04.11
Почему я не могу активировать индексы при Restore?


4-1079183758
name voe
2004-03-13 16:15
2004.04.11
Сроччно определить handle desktop


7-1079816431
DEMON_XXX
2004-03-21 00:00
2004.04.11
Как отследить дискету в A:


1-1080213368
Furkan
2004-03-25 14:16
2004.04.11
runtime + console


1-1080295137
Хэтч
2004-03-26 12:58
2004.04.11
Как сделать, чтобы при нажатии на Button рисовалась стрелочка ?