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

[Alex_new_2030]

Я нашел программный код (см. ниже) все работет прекрасно, НО только с BMP файлами, а с JPG не хочет работать. Помогите, как лучше сделать? Или jpg сначала конвертировать в bmp (но тогда подскажите как это сделать программно) или ...?

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20

Public Sub SetWallpaper(File As String)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True
End Sub

Использование: SetWallpaper "me_pc.bmp"

[areh]

Чтобы на рабочий стол поставить JPG, надо включать ActiveDesctop, а как это сделать, я не знаю.

[Alex_new_2030]

Так ActiveDesсtop включен из самой винды. Всеравно ен хочет работать.

[Elmer]

Когда то, летом помоему, я задавал этот вопрос! Так и не нашёл, функции которая мне Сразу Джпег выводит на стол.... Вот так вот!

[Firestorm]

разве обязательно нужен activedesctop?
может сменить картинку через реестр?

[Amed]

Помнится мне, где-то уже проскакивала такая тема, и по-моему, на десктоп можно класть только bmp картинки...
А решение конвертации такое:
На форме нужен PictureBox или Image:
Для них устанавливаем нужную картинку любого ими поддерживаемого формата, а затем пишем, например:

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

Savepicture MyImageBox.Picture, App.Path & "\SavedInBMP.bmp"

,а затем именно эту картинку (App.Path & "\SavedInBMP.bmp") кладём на десктоп