Ну тут только AutoIt тебе в помощь. Стандартными средствами винды не поменять.
вот пример скрипта:
Код:
$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
Вот, кстати,
ссылка на небольшую статью.
