Jump to content

This site uses cookies. By continuing to browse the site you are agreeing to our use of cookies. Find out more here. X
X


Photo

Change Wallpaper with AutoIt


  • Please log in to reply
No replies to this topic

#1 SandelPerieanu

SandelPerieanu

    Prodigy

  • Active Members
  • PipPipPip
  • 179 posts

Posted 12 January 2006 - 08:25 AM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;It work only for *.bmp;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $wallpaper = FileOpenDialog("", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bitmap(*.bmp)", 1) _WallpaperChange($wallpaper) Func _WallpaperChange($image)  ;Desktop Position: Stretch  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", $image, _    "int", BitOR($spif_updateinifile, $spif_sendchange)) EndFunc   ;==>_WallpaperChange

Edited by psandu.ro, 03 June 2006 - 05:58 PM.











0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users