Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Виндузная wallpaper  [new]
Bastard
Member

Откуда:
Сообщений: 55
Здравствуйте !
Подскажите функцию, с помощью которой можно узнать
какая картинка используется сейчас в качестве обоев в Виндовс ???
И если ее нет, то какого цвета рабочий стол ???

Заранее спасибо !
19 апр 04, 02:44    [635039]     Ответить | Цитировать Сообщить модератору
 Re: Виндузная wallpaper  [new]
Раз (1)
Member

Откуда: Е-бург
Сообщений: 193
В реестре все находится, где именно - не помню, щас спецы уточнят :)
19 апр 04, 07:53    [635078]     Ответить | Цитировать Сообщить модератору
 Re: Виндузная wallpaper  [new]
Bastard
Member

Откуда:
Сообщений: 55
я знаю где в реестре находится ! а как достать то оттуда ???
19 апр 04, 10:46    [635323]     Ответить | Цитировать Сообщить модератору
 Re: Виндузная wallpaper  [new]
NNN
Member

Откуда:
Сообщений: 2141
#define COLOR_DESKTOP          1

#define MAX_PATH 260
#define SPI_GETDESKWALLPAPER 0x0073

DECLARE INTEGER GetSysColor in WIN32API integer
DECLARE INTEGER SystemParametersInfo IN WIN32API;
INTEGER uiAction,;
INTEGER uiParam,;
STRING @ pvParam,;
INTEGER fWinIni

_screen.BackColor = GetSysColor(COLOR_DESKTOP)

LOCAL lcBuffer as String
lcBuffer=SPACE(MAX_PATH)
=SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, @lcBuffer, 0)
_screen.Picture = LEFT(lcBuffer,AT(CHR(0),lcBuffer)-1)

CLEAR DLLS
19 апр 04, 10:59    [635355]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить