Как сменить картинку на рабочем столе?

[Chek]

Уважаемые господа программисты, подскажите, пожалуйста, как из программы выполнить замену обоев на рабочем столе. Заранее благодарю.

[boevik]

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

'Объявление
Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER As Long = 20
'Вызов
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\WINDOWS\Bubbles.bmp", 0


[Black_Star]

Для того, чтобы картинка так и осталась, вместо последнего нуля надо
SPIF_SENDWININICHANGE + SPIF_UPDATEINIFILE
где

Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

[Chek]

Большое спасибо, вы мне очень помогли.