Мгновенная настройка WinXP (оформление)

; НАЧАЛО

 $WT="Свойства: Экран"

 $TH='"X:\SORT\11.THEME"'

 ShellExecute("rundll32.exe","shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"&$TH)
 WinWait($WT)
 WinActivate($WT)
 if WinActive($WT) then Send("{ENTER}")

; КОНЕЦ

$sPath = "t.theme"
ShellExecute($sPath)
WinWaitActive("[CLASS:#32770]")
Send("{ENTER}")

WinWaitActive("[CLASS:#32770]", "Preview")

#include <WinAPI.au3>

$sTitle = "ThemePreview1"
$sText = "Preview"
$sTheme = '"X:\SORT\11.THEME"'

$hAncestor = 0

ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:" & $sTheme)

While Not WinExists($hAncestor, $sText)
	$hAncestor = _WinAPI_GetAncestor(ControlGetHandle("", $sText, $sTitle), 2)
	Sleep(10)
WEnd

WinActivate($hAncestor, $sText)
WinWaitActive($hAncestor, $sText, 3)
If WinActive($hAncestor, $sText) Then ControlClick($hAncestor, $sText, "Button3")

; НАЧАЛО

; Автоматическое применение темы оформления

 $WT1="[CLASS:#32770]"
 $WT2="Preview"

 $TH='"X:\PROJECT\AUTOIT\THEME.THEME"'

 ShellExecute("rundll32.exe","shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"&$TH)
 WinWait($WT1,$WT2)
 WinActivate($WT1,$WT2)
 WinWaitActive($WT1,$WT2)
 if WinActive($WT1,$WT2) then ControlClick($WT1,"ОК","[CLASS:Button;INSTANCE:3]")

; КОНЕЦ