Wie Ändere ich das Desktop Schema

1. offizieller Beitrag

    Hallo

    Für ein Installationsscript das mehrfach booten muss möchte ich bei jedem Vorgang eine andere Desktopfarbe einstellen damit man sehen kann wie weit das Skript ist.

    Bis dato mache ich das über einen Aufruf aus der Systemsteuerung aber das funktioniert nicht immer. (Win 2000 SP4).

    Hat da jemand ne Lösung.
    Ebenso für die Einstellung der Bildschirmauflösung.

    Danke für die Hilfe.
    Gruß
    Heinz

    [autoit]


    ....
    _ModifyTheme("Vector")
    ....

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

    Func _ModifyTheme($sTheme)
    Run('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,5')
    WinWait('Eigenschaften von Anzeige')
    WinSetState('Eigenschaften von Anzeige', "", @SW_HIDE)
    ControlCommand('Eigenschaften von Anzeige', '', 'ComboBox1', 'SelectString', $sTheme)
    ControlClick('Eigenschaften von Anzeige', '', 'Button5')
    $OptWTMM = Opt('WinTitleMatchMode', 4)
    WinWait('classname=CoverWindowClass')
    WinWaitClose('classnam=CoverWindowClass')
    Opt('WinTitleMatchMode', $OptWTMM)
    ControlClick('Eigenschaften von Anzeige', 'OK', 'Button3')
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit]
    • Offizieller Beitrag

    Hi,

    hilft das?

    Spoiler anzeigen
    [autoit]

    XPStyle()

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

    Func XPStyle($OnOff = 1)
    If $OnOff And StringInStr(@OSTYPE, "WIN32_NT") Then
    $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
    DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    Return 1
    ElseIf StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
    DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
    $XS_n = ""
    Return 1
    EndIf
    Return 0
    EndFunc ;==>XPStyle

    [/autoit]

    So long,

    Mega

    Hi,
    also für die Bildschirmauflösung zu ändern verwende ich dieses Skript:

    Zur Desktopfarbe: Ev. anstelle der Desktopfarbe das Desktopbild ändern: "HKCU\Control Panel\Desktop\Wallpaper"

    Gruss
    eddy_erpel