Themes ändern

1. offizieller Beitrag

    Hallo,
    weiß jemand wie man Themes von XP ändern kann ohne alles mit Hilfe von Tastendrücken an "Eigenschaften von Anzeige" zu senden. (Ich meine nur die in XP schon vorinstallierten Themes blau, siler, olivgrün) Auch habe ich es noch nicht geschafft, das während die Theme geändert wird der Bildschirm nicht grau wird und dieses "Bitte warten" Schild unterdrückt wird.

    Danke

    • Offizieller Beitrag

    Hi,

    mehr kann ich dir nicht abieten:

    [autoit]

    ;_ModifyTheme('Windows - klassisch')
    _ModifyTheme('Windows XP')

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

    WinSetState('Eigenschaften von Anzeige', "", @SW_SHOW)

    [/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]

    Das unterdrücken des grau werdenden Bildschirms ist denke ich auch nicht möglich. Diese Funktion liegt tief im System.

    Naja, vielleicht hat ja jemand trotzdem eine Lösung!

    So long,

    Mega