WallPaper Changer

[SandelPerieanu]

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

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