Windows XPまたはWindows 7のテーマを変更（サイレント）

Question

私を助けてくれますか？

私が必要とするのは、表示プロパティ（パーソナライゼーション）ウィンドウでユーザーにプロンプ​​トを表示せずにWindowsマシン上のテーマを変更する方法です。 themechangeは、c：\ windows \ resources \ themes \ディレクトリから.themeファイルを適用し、新しい.msstylesを適用しないでください。メソッドは.themeファイルのみを適用します。私は、パーソナライゼーションウィンドウを表示させずにテーマを適用する方法を見つけることができませんでした。強調するために、私はスクリプトやマクロを使ってこれを解決したくありません。また、「sendkeys」を介してウィンドウを閉じても、一時的に表示されるため、オプションではありません。

多分WINAPI機能や簡単なレジストリハックによる方法がありますか？私に助言してください。ありがとうございました。

敬具

Answer 1

'Script name: yourtheme.vbs 
'Object: Automate without command prompt the application of a Windows Theme by a VB script 
' 
'SCRIPT CONTENTS: 
'Define Variables : 

    Set ShellApp = CreateObject("Shell.Application") 
    Set WsShell = CreateObject("Wscript.Shell") 


' 
'Define path for your file theme (put it on a network share and don't forget to apply "read and execute" ACL for your Users) 

    Theme = "typeyoursharepath\typeyourtheme.theme" 
    Theme = """" + Theme + """" 


'Open Display Properties Windows, Select your theme and apply with keep focus on Windows 

    ShellApp.ControlPanelItem cstr("desk.cpl desk,@Themes /Action:OpenTheme /file:" & Theme) 
    Wscript.Sleep 100 
    WsShell.SendKeys "{ENTER}" 
    While WsShell.AppActivate ("Display Properties") = TRUE 
     WsShell.AppActivate "Display Properties" 
    Wend 

'In case of problem try to use a timeout value more important like "Wscript.Sleep 2000" 
'END OF SCRIPT 

'NOTES: 
'APPLIED SUCCESSFULLY ON WINDOWS XP AND WINDOWS SERVER 2003R2 X86 AND UNDER CITRIX XENAPP 4.6FP7 (OS: W2003R2X86 SP2) TO APPLY WINDOWS EMBEDDED THEME WITH BLUE BACKGROUND COLOR MORE LIGHT. 
'LOOKS GREAT ON CITRIX SESSION USER! 
'INTEGRATED IN USER CONFIG GPO AT USER LOGON UNDER CITRIX XENAPP. 

Answer 2

私は黙っのWindows 7の（とWindows 8の）テーマを変更するには、ネイティブの方法があるとは思わないが、あなたは、テーマスイッチャーをwinaero使用しようとすることができます。あなたはそれについて読むことができ、それをダウンロードするhere。