مشکل در تغییر والپیپر ویندوز با عکسهای jpg

[silverm]

سلام
من می خوام والپیپر دسکتاپ یه عکس jpg بگذارم اما با یکی دو تا برنامه امتحان کردم نشد و رنگ پیش فرض اومد
البته یه برنامه از همین سایت دانلود کردم که خیلی پیچیده است می خواستم ببینم شما یه برناهه یا تیکه کد دارید که به من کمک کنه

[mmssoft]

اول کد زیر رو تو General کپی کن :

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, PicAddress, SPIF_UPDATEINIFILE

به جای PicAddress باید آدرس تصویرتون رو بنویسید.