Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Chekis9100a

Пользователь


Сообщения: 88
Благодарности: 7

Профиль | Отправить PM | Цитировать


Господа, перечитал и попробовал все варианты, но не желает тема применятся.
Окно тоже не закрывается. А этот вариант мне очень нужен.
Подскажите в чем проблема...

PS: Только у меня XP

Все разобрался...


$theme = "*****"
$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


Теперь заработало!!! Всем спасибо.

Последний раз редактировалось Smarty, 16-11-2010 в 07:11.


Отправлено: 03:27, 16-11-2010 | #9