Sign in to follow this  
Followers 0
SandelPerieanu

WallPaper Changer

1 post in this topic

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Only if $wallpaper is a *.bmp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func _WallpaperChange($wallpaper="")

RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", 2)

RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", 0)

$spi_setdeskwallpaper = 20

$spif_updateinifile = 1

$spif_sendchange = 2

DllCall("user32.dll", "int", "SystemParametersInfo", _

"int", $spi_setdeskwallpaper, _

"int", 0, _

"str", $wallpaper, _

"int", BitOR($spif_updateinifile, $spif_sendchange))

EndFunc ;==>_WallpaperChange

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0