Как поставить обои через Visual Basic?

[VladLexus]

Я пытался поставить обои с помощью VB через SystemParametrsInfo (SPI_SETDESKWALLPAPER,0,путь к обоям,SPIF_UPDATEINIFILE); но обои на рабочем столе просто исчезают. Даже если обновить - все равно ничего.
Хелп!

[GSerg]

Функцию объявил как?

[alibek]

Active Desktop выключен?

[VladLexus]

Сначала в модуле
Public Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Плюс объявил константы:
Public Const SPIF_UPDATEINIFILE = &H1
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2
Естественно, из WinApi.
Затем по нажатию кнопки (точнее, ссылке в меню) уже в форме:
SystemParametersInfo 20, 0, "C:\Screenshot\wallst.bmp", &H1
И на всякий случай добавил
SystemParametersInfo 20, 0, Nil, &H2
Чтобы обновился раб. стол.

[GSerg]

Интересно, почему не рухнуло нафиг?

При таком объявлении в вызове ставь не "C:\Screenshot\wallst.bmp", а byval "C:\Screenshot\wallst.bmp".


И ышшо, зачем ты объявляешь константы, если потом используешь не их, а их значения?

[hCORe]

И причем тут Nil? Это же Delphi-шная штука В VB нулевой указатель обозначается как ByVal 0&, а пустая строка - как vbNullString.

[GM]

И причем тут Nil?

Вот к чему приводит не использование Option Explicit.

[FaKk2]

Короче:

Код: Выделить всё


'Сначала в модуле
Public Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
'Плюс объявил константы:
Public Const SPIF_UPDATEINIFILE = &H1
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2

'Естественно, из WinApi.
'Затем по нажатию кнопки (точнее, ссылке в меню) уже в форме:
SystemParametersInfo SPI_SETDESKWALLPAPER, ByVal &0, ByVal "C:\Screenshot\wallst.bmp", &H1
'И на всякий случай добавил
SystemParametersInfo SPI_SETDESKWALLPAPER, ByVal &0, ByVal &0, &H2


[VladLexus]

Да мне приятель помогал, он только на Дельфи работает.
Ну, спасибо в любом случае.

[VladLexus]

М-да, кстати, если кто будет делать то же самое - картинка в jpg формате не встанет на рабочий стол. Нужно сначала перевести ее в bmp через SavePicture.