Главная страница
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.036 c
1-1079724496
Batoon
2004-03-19 22:28
2004.04.11
просто КЛАСНЫЙ КРАСИВЫЙ интерфейс


14-1079469946
Andy BitOff
2004-03-16 23:45
2004.04.11
Почему вновь прибывшие на форум не жмут поиск?


9-1070907249
varox
2003-12-08 21:14
2004.04.11
Помогите с DirectX OpenGl пожалуйста!!!


14-1081956180
}|{yk
2004-04-14 19:23
2004.04.11
IBExpert Forms


1-1082712749
tria
2004-04-23 13:32
2004.04.11
Как переименовать секцию в ini-файле?