Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как растянуть обои на рабочем столе? [D5, Win95/98, WinME, NT4, Win2k, WinXP]


NoName ©   (2003-05-01 20:36:00) 

?


Morfein   (2003-05-02 10:29:00) [1]

считываешь в строковую переменную WallpaperPath строку реестра:

[HKEY_CURRENT_USER\Control Panel\desktop]
WallpaperPath <= "Wallpaper"


записываешь параметр типа dword

[HKEY_CURRENT_USER\Control Panel\desktop]
"WallPaperStyle" = 0x00000002


и вызываешь функцию

SystemParametersInfo(SPI_SETDESKWALLPAPER, 1, pchar(WallpaperPath), SPIF_UPDATEINIFILE);


Наверх

Титульная страница Поиск, карта сайта Написать письмо