Сообщество Чайников

Вопрос

Нужно сменить обои В ХР на *.JPG. Как это сделать?

Ответ

На форму кладется имидж. В него загоняется картинка. Картинка сохраняется в файл БМП(savepicture). Потом делается вот что:

'Declares
Private Declare Function SystemParametersInfo _
Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1

'А потом в какой-нидь функции
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, [имя БМП-шки], SPIF_UPDATEINIFILE

Хвастунов Михаил