Desktop Hintergrund wechseln

    Halli Hallo

    Ich möchte mein Desktop Hintergrund mit Autoit wechseln.

    Leider ist die Bildposition immer falsch:(

    Wie kann ich das einstellen, dass das Bild immer als Angepasst eingebunden wird?

    Bin so weit gekommen. (Naja mit Google)

    [autoit]


    #include <File.au3>
    $sPath = "C:\Users\*\dwhelper2\"
    $aFileList = _FileListToArray($sPath, '*.bmp', 1)
    If Not @error Then
    For $i = 1 To $aFileList[0]
    RegWrite('HKEY_CURRENT_USER\Control Panel\Desktop', 'Wallpaper', 'REG_SZ', $sPath & $aFileList[$i])
    DllCall('user32', 'int', 'SystemParametersInfo', 'int', 20, 'int', 0, 'str', $sPath & $aFileList[$i], 'int', 0)
    Sleep(5000)
    Next
    EndIf

    [/autoit]

    Vielen Dank

    Wünsche noch ein schönes heißes Sommerwochenende;)

    Gruss

    Einmal editiert, zuletzt von Chaspel (27. Juli 2013 um 18:20)

    Zitat von Chaspel

    Wie kann ich das einstellen, dass das Bild immer als Angepasst eingebunden wird?

    Das sollte über die Option WallpaperStyle zu regeln sein:

    Hab ein englisches Windows, aber das zu übersetzen schaft man auch mit Vorschulenglisch :D
    Fill = 10
    Fit = 6
    Stretch = 2

    [autoit]

    RegWrite('HKEY_CURRENT_USER\Control Panel\Desktop', 'WallpaperStyle', 'REG_SZ', 6)

    [/autoit]


    Zitat von Chaspel

    Wünsche noch ein schönes heißes Sommerwochenende


    Schön und heiß schliessen sich leider gegenseitig aus...ich geh kaputt hier ;(

    Ok danke so gehts:

    Sogar mit jpg! :rofl:

    [autoit]


    $Wallpaper = "C:\Users\""\dwhelper2\Nacht.jpg"
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", 4)
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", $Wallpaper)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 20, "int", 0, "str", $Wallpaper, "int", 0)

    [/autoit]

    Wie wärs mit mit einer Abkühlung im Pool? :D

    Gruss