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

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

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

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


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

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

Да можно ...
Код: Выделить весь код
#NoTrayIcon
$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)
	 Sleep(5000)  
	WinClose($title)
Else
	MsgBox(16, 'Ошибка применения Темы', 'Тема "' & $theme & '" не обнаружена! ')
EndIf
...только это помоему в другом месте обсуждают...
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:05, 03-11-2010 | #13

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