Change Desktop Wallpaper

[kloyenz]

Hello,

Does anybody know how to change the desktop wallpaper to a downloaded file without the user seeing any backgrounds ? And afterwards refreshing the background so that the new foto is visible immediatly ?

Thnx

[Josbe]

...try something like this:

RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "wallpaper", "REG_SZ", "mybmp.bmp")
EnvUpdate()

[Josbe]

The background file is changed...but isn't refreshed.

you're right...something like the AutXtra it's needed.

[scriptkitty]

aye, I had the same issue, if you open the properties window tab to the backround and click ok, then it refreshes.

[ezzetabi]

Solution!!

Pseudocode :

Run(@comspec & " /c " & @Windowsdir & "\system32\desk.cpl","",@sw_hide) ;Real code actually..

WinWait(the window)

Send( the ALT+? combination to go in the list) ;Language dependant

Send( file name, no ext)

Send("{Enter}")

[Nutster]

What about using ControlSend? That would not be language dependant, right?

; in Win98 (untested)
Run("Control.exe Desk.cpl", @SW_HIDE)  
WinWait("Display Properties") ;Language Dependant
ControlFocus("Display Properties", "", "SysListView321")
ControlSend("Display Properties", "", "SysListView321", "Clouds")
ControlClick("Display Properties", "", "Button4"); Ok button

Edit: Fix function call.

Edited May 18, 2004 by Nutster

[ezzetabi]

;Working on my W2000 computer with Active desktop disabled.

$title = "Display Properties"
$wallpaper = "winnt";<------- Put here the filename you want after you copied the .bmp file it in @windir. (or set it "(none)")

Run(@comspec & " /c " & @Windowsdir & "\system32\desk.cpl","",@sw_hide)
WinWait($title)
ControlFocus($title, "", "ListBox2")
ControlSend($title, "", "ListBox2",$wallpaper)
ControlClick($title, "", "Button7"); Ok button