تعويض wall paper

چه طوري مي شه wall paper رو عوض كرد البته اگه يه سورس كامل بديد ممنون ميشم

تنظیم والپیپر(تصویر یا کاغذ دیواری دسکتاپ)- تغییر یا برداشتن آن بااستفاده از تابع API

کد:

---

Private 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
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1

---

با استفاده از تابع زیر که از API بالا در آن استفاده شده، می توانید والپیپر دسکتاپ را تغییر دهید. در صورت موفقیت، تابع مقدار True را برمی گرداند. اگر آرگومان را حذف می کنیم و یا یک رشته تهی پاس کنیم، والپیپر برداشته می شود.

کد:

---

Function SetWallpaper(Optional ByVal FileName As String) As Boolean
    If SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal FileName, _
        SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)Then
        SetWallpaper = True
    End If
End Function

---

منبع: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خيلي ممنون

با تشكــــــــــــــــــــــ ـــــــر

البته باید عکسی که انتخاب می کنی با پسوند بی ام پی باشه