怎样更改XP系统主题？

xwylpsy 2011-01-05 11:36:48

怎样用VB代码去更换系统主题？

...全文

231 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

贝隆 2011-01-06

打赏
举报

的确是一个好办法

东方之珠 2011-01-05

打赏
举报

http://www.vbaccelerator.com/home/VB/Code/Libraries/XP_Visual_Styles/Drawing_with_XP_Visual_Styles/article.asp

ahljxwy 2011-01-05

打赏
举报

rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Appearance /Action:OpenMSTheme /file:"d:\VistaCG.msstyles" -yes

rundll32 desk.cpl,DeskSetCurrentScheme

使用COM：ThemeManager 的IThemeManagerDisp

或者用LoadLibrary加载desk.cpl的DeskSetCurrentScheme函数。
DeskSetCurrentSchemeA(LPCSTR LpSchemeName)

无·法 2011-01-05

打赏
举报

[Quote=引用 1 楼 ahljxwy 的回复:]

rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Appearance /Action:OpenMSTheme /file:"d:\VistaCG.msstyles" -yes

rundll32 desk.cpl,DeskSetCurrentScheme

使用COM：ThemeManager 的IThemeManager……
[/Quote]学习了。楼上，通过shell调用。

xwylpsy 2011-01-05

打赏
举报

[Quote=引用 1 楼 ahljxwy 的回复:]
rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Appearance /Action:OpenMSTheme /file:"d:\VistaCG.msstyles" -yes

rundll32 desk.cpl,DeskSetCurrentScheme

使用COM：ThemeManager 的IThemeManagerDis……
[/Quote]
看不明白，能不能具体点？