| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Рабочий стол [D5, D6, Win95/98, Win2k, WinXP]
Станислав © (2004-02-06 18:07:00)Как из программы можно поменять обои, заставку в Win98/2000/XP?
KalmykovSergei (2004-02-07 15:46:00) [1]
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 модули вставить
Iks (2004-02-06 19:54:00) [2]Поищи на форуме, ты не первый !!!
| |
