Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [решено] Помогите грамотно записать батник применение темы в Seven
Показать сообщение отдельно

Аватара для Bodya.N

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


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

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

Pozia А принципиально в CMD? В AutoIt'е не подойдет?
Код: Выделить весь код
$theme = "Aero"
$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

Последний раз редактировалось Bodya.N, 02-11-2010 в 23:00.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:45, 02-11-2010 | #9

Название темы: [решено] Помогите грамотно записать батник применение темы в Seven