| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
смена обоев рабочего стола [D5, WinXP]
vaxluk © (2005-05-15 19:15:00)подскажите пожалйста, как можно програмно изменить обои на рабочем столе?
Antonn (2005-05-16 16:10:00) [1]procedure SetWallpaper(Value: string);
begin
SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end; //в качю параметра путь к изображению
dmitry501 (2005-05-16 11:01:00) [2]vaxluk (15.05.05 19:15)
2 Варианта:
1. SystemParametersInfo(SPI_SETDESKWALLPAPER,...);
2. Через IActiveDesktop (позволяет также менять опции отображения картинки)
CComPtr pDesktop;
CoCreateInstance(CLSID_ActiveDesktop, NULL,
CLSCTX_INPROC_SERVER,IID_IActiveDesktop, (void**)&pDesktop);
pDesktop->SetWallpaper(,0);
WALLPAPEROPT wopt;
wopt.dwSize=sizeof(wopt);
wopt.dwStyle=WPSTYLE_TILE;
pDesktop->SetWallpaperOptions(&wopt,0);
pDesktop->ApplyChanges(AD_APPLY_ALL);
(c) BlackMoon
KilkennyCat (2005-05-15 19:21:00) [3]а поискать в сети лень?
| |
