如何恢复企业 Windows 7 主题

Question

作为我圣诞节周的副项目，我想我应该创建一个可以从 Windows 启动文件夹运行的快速控制台应用程序。

该应用程序将删除一些不需要的全局企业桌面图标（我喜欢运行干净的桌面 - 这常见吗？）并将 Windows 7 主题重置为我可爱的 ​​Visual Studio 2010 图形。

我已经阅读了为什么不应该为用户以语法方式完成此操作的原因，但我觉得这种情况有所不同，因为每天早上我都会手动删除图标并重置主题（政策并没有阻止这一点 - 只是每天早上重新应用它）所以我认为这个小项目从长远来看可以节省我的时间。

我正在删除图标，但我正在努力设置我的主题：

Dim key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Themes", True)

key.SetValue("CurrentTheme", "C:\Users\myprofile\AppData\Local\Microsoft\Windows\Themes\VS2010.theme")

key.Close()

这是正确设置注册表项但不应用它。任何有关如何进行这项工作或替代方案的建议将不胜感激。最终我可能会尝试一个简单的壁纸集，但如果可能的话我想使用主题！

谢谢

Answer 1

您必须通过 P/Invoke 来进行更改。您需要使用 SetSystemVisualStyle方法。

<DllImport("UxTheme.DLL", BestFitMapping:=False, CallingConvention:=CallingConvention.Winapi, CharSet:=CharSet.Unicode, EntryPoint:="#65")> _
Shared Function SetSystemVisualStyle(ByVal pszFilename As String, ByVal pszColor As String, ByVal pszSize As String, ByVal dwReserved As Integer) As Integer
End Function

SetSystemVisualStyle("C:\WINDOWS\resources\Themes\Luna\Luna.msstyles", "Metallic", "NormalSize", 0)

PInvoke.net 现在给我带来了问题，因此您可能需要使用 缓存页面。