[Bodya.N]

Извини , неправильно скопировал код. Подправил , сейчас должно работать.

[Pozia]

Bodya.N, работает. Еще бы доработать скрипт чтобы окно Персонализации закрывалось. Перезагрузкой explorer проще всего, но может как нить хитрее можно? Без перезагрузки?

[Bodya.N]

Да можно ...

Код:

#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

...только это помоему в другом месте обсуждают...

[Pozia]

Bodya.N, а подскажите как скрыть окно персонализации? Чтобы оно запускалось скрытым или после запуска сразу же скрывалось?

[Bodya.N]

Pozia

Код:

WinWait($title, "", 10) 	
WinSetState ($title, "", @SW_HIDE )

[NoIZz]

Скажите, а кто-нибудь решал проблему удаления тем из командной строки?

[Pozia]

Кто то мне подкинул автоит скрипт, который применяет любую тему при запуске его из командной строки типа:

Код:

ThemeApply.exe "New Look Dark WD"

и исходник я потерял. сейчас нужно скомпилировать для x86 системы и полный косяк. А кто и где мне его подкинул не помню. может у кого исходник этого скрипта есть? Сам exe прикрепляю

[Fermalion]

Подскажите, пожалуйста, нельзя ли как-то автоматически закрывать "Персонализацию" после применения темы?
Autoit ставить не очень хочется, неужели этого нет в стандартных возможностях cmd?
Я внимательно изучил эту тему (я мало что понимаю в управлении командной строкой), подскажите, пожалуйста, как дописать батник на автозакрытие персонализации?
Спасибо!

[Iska]

неужели этого нет в стандартных возможностях cmd? »

Отродясь такого в пакетных файлах не было.

[Serguei Kouzmine]

a чем не подошел мой пример ?

http://forum.oszone.net/thread-339638.html ?