Link to home
Start Free TrialLog in
Avatar of Vartana
Vartana

asked on

Make exe my wallpaper 1000pts !!!!

hi i need to make my exe which i made in vb.net to replace my wallpaper. (2k/XP)
ASKER CERTIFIED SOLUTION
Avatar of Clif
Clif
Flag of United States of America image
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of iboutchkine
iboutchkine
Change walpaper

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

    Const SPI_SETDESKWALLPAPER = 20
    Const SPIF_SENDWININICHANGE = &H2
    Const SPIF_UPDATEINIFILE = &H1

    Public Function SetDesktopImage(ByVal fn As String) As Long
        SetDesktopImage = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, fn, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)
    End Function