Wallpaper im laufenden Betrieb ändern

Hallo zusammen,

ich bastle derzeit ein kleines Script, das per Zufall ein Bild aus einem Verzeichnis auswählt und es als Hintergrundbild setzt. Momentan tut es das auch ganz gut per HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper, dumm nur, dass das Bild nicht aktualisiert wird.
Ich habe hier im Forum schon mal gesucht und nur die Möglichkeiten "Explorer.exe neu starten" und "Desktop Eigenschaften ändern" gefunden, welche für mich beide nicht in Frage kommen, da das Ganze so unauffällig wie möglich geschehen soll.
Versucht habe ich auch schon EnvUpdate(), was mir allerdings einen RC 1 bringt, also nicht funktioniert (warum auch immer??!)

Gibt es noch eine andere Möglichkeit, das Wallpaper zu aktualisieren?

Vielen Dank für Eure Hilfe im Voraus!!!

Gruß
Tobi

Danke, danke. Anmeldet bin ich schon lange, nur arbeite ich so selten mit AutoIt. Heute ist es aber endlich wieder soweit!

Hi Bernd,

danke Dir ganz herzlich!! Funktioniert super!
Jetzt möchte ich nur noch die JPG-Einbindung hinbekommen... Schaun mer mal.

Gruß
Tobi

Also mir würde es helfen xD
Ich habe nämlich das selbe versucht, und nen jpg wäre für mich sehr praktisch, ich habe da übrigens ein Problem, ich habe den obrigen Code volgendermaßen abgeändert:

[autoit]

#include <array.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

Global Const $SPIF_UPDATEINIFILE = 0x01
Global Const $SPIF_SENDWININICHANGE = 0x02
Global Const $SPI_SETSCREENSAVEACTIVE = 0x11
Global Const $SPI_SETDESKWALLPAPER = 0x14
Global Const $SPI_GETDESKWALLPAPER = 0x73

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

$Bilder = _FileListToArray($CmdLine[1],"*.bmp",1);

[/autoit][autoit][/autoit][autoit]

_SetDeskWallpaper($Bilder[Random(1,$Bilder[0])]);

[/autoit][autoit][/autoit][autoit]

Func _SetDeskWallpaper($Filename)
DllCall("user32.dll", "long", "SystemParametersInfo" _
, "long", $SPI_SETDESKWALLPAPER _
, "long", 0 _
, "str", $Filename _
, "long", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE) _
)
EndFunc ;==>_SetDeskWallpaper

[/autoit]

Aber jetzt geht er nicht mehr,was sich so äußert, als dass der Desktop einfach blau wird und nach nem Neustart wieder normal ist, warum?

Habe die Änderungen vorgenommen, aber es geht immer noch nicht

[autoit]

#include <array.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

Global Const $SPIF_UPDATEINIFILE = 0x01
Global Const $SPIF_SENDWININICHANGE = 0x02
Global Const $SPI_SETSCREENSAVEACTIVE = 0x11
Global Const $SPI_SETDESKWALLPAPER = 0x14
Global Const $SPI_GETDESKWALLPAPER = 0x73

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

$Bilder = _FileListToArray($CmdLine[1],"*.bmp");

[/autoit][autoit][/autoit][autoit]

_SetDeskWallpaper($Bilder[Random(1,$Bilder[0], 1)]);

[/autoit][autoit][/autoit][autoit]

Func _SetDeskWallpaper($Filename)
DllCall("user32.dll", "long", "SystemParametersInfo" _
, "long", $SPI_SETDESKWALLPAPER _
, "long", 0 _
, "str", $Filename _
, "long", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE) _
)
EndFunc ;==>_SetDeskWallpaper

[/autoit]

Also in der AutoIt hilfe steht:
$iFlag Optional: specifies wheather to return files folders or both
$iFlag=0(Default) Return both files and folders
$iFlag=1 Return files only
$iFlag=2 Return Folders only

daraus entnehme ich, dass er wenn ich das dritte Parameter nicht angebe Pfad und Dateinamen zurückgibt, ist das falsch?

H jetzt habe ichs kapier das ist nen Filter.... jetzt gehts habe dann einfach $CmdLine[1]&"\"&$Bild genommen

jetzt fehlt nur noch ne Funktion um nen Jpg zu nem Bmp zu Konvertieren

JPG to BMP:

[autoit]

_GDIPlus_Startup()
$Bild = _GDIPlus_ImageLoadFromFile("BILD.jpg")
_GDIPlus_ImageSaveToFile($Bild,"BILD.bmp")
_GDIPlus_ImageDispose($Bild)
_GDIPlus_Shutdown()

[/autoit]

Thx, funktioniert perfekt