Ветеран
Сообщения: 747
Благодарности: 151
|
Профиль
|
Отправить PM
| Цитировать
Пример сценария AutoIt (взят из офлайн версии сайта oszone) просто поменяйте Luna на название своей темы и добавьте его в Автозагрузку. Если нужно только один раз добавьте в раздел HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
Код:
$theme = "Luna"
$title = "Свойства: Экран"
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
|
|
-------
Не мыслям надобно учить, а мыслить
Отправлено: 23:38, 05-04-2009
| #1197
|
