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

[-=alp=-]

Я делаю так:
Объявляю:
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

Обработка:
File = App.Path & "\004.jpg"
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True

А она зараза не миняеться. Просто рабочий стол становиться синим.
В чём мая ошибка?

[Kostyan]

Во первых, для передачи строковых параметров эту ф-ю нужно объявить немного подругому:

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

Во вторых, самое главное, на рабочий стол нельзя помещать Jpeg-рисунки, их сначала переводят в Bmp (так, например делает ACDSee).

[Bik]

Или посмотри на http://www.vbstreets.ru/download.asp?id=477

[-=alp=-]

Спасибо большое, я полностью удовлетворён этим ответом.
Пиво за мной.