[Boa Soft]

я не знаю способа переключения темы через реестр. Напишите подробную инструкцию - я попробую »

Код:

; <AUT2EXE VERSION: 3.2.4.9>
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\SetTheme.au3>
; ----------------------------------------------------------------------------
$theme = "TehnoS"
$title = "Свойства: Экран"
$H = @DesktopHeight
$W = @DesktopWidth
WinClose($title, "")
if (($W / $H) > 1.4 ) then  $theme = "TehnoW"
If FileExists (@WindowsDir & "\Resources\Themes\" & $theme & ".theme") Then
    ShellExecute (@WindowsDir & "\Resources\Themes\" & $theme & ".theme")
    WinWait ($title,"",10)
    If WinExists ($title) Then ControlClick ($title,"",1)
Else
    MsgBox (16,'Ошибка применения Темы','Тема "' & $theme & '" не обнаружена! ')
EndIf
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\SetTheme.au3>
; ----------------------------------------------------------------------------