这种方法还是有缺陷的，并没有做到适应主题色（不是深浅主题）
上源码：

  

子程序名	返回值类型	公开	备 注
取系统主题色	整数型

变量名	类 型	静态	数组	备 注
clrValue	整数型
colorization	整数型
opaqueBlend	逻辑型
R	字节型
G	字节型
B	字节型

DwmGetColorizationColor (colorization, opaqueBlend)
clrValue ＝ colorization
colorization ＝ 到字节 (右移 (clrValue, 24))
R ＝ 到字节 (右移 (clrValue, 16))
G ＝ 到字节 (右移 (clrValue, 8))
B ＝ 到字节 (clrValue)
返回 (取颜色值 (R, G, B))

DLL命令名	返回值类型	公开	备 注
DwmGetColorizationColor	整数型
DLL库文件名:
Dwmapi.dll
在DLL库中对应命令名:
DwmGetColorizationColor
参数名	类 型	传址	数组	备 注
pcrColorization
pfOpaqueBlend	逻辑型

.版本 2<br /> <br /> .子程序 取系统主题色, 整数型<br /> .局部变量 clrValue, 整数型<br /> .局部变量 colorization, 整数型<br /> .局部变量 opaqueBlend, 逻辑型<br /> .局部变量 R, 字节型<br /> .局部变量 G, 字节型<br /> .局部变量 B, 字节型<br /> <br /> DwmGetColorizationColor (colorization, opaqueBlend)<br /> clrValue ＝ colorization<br /> colorization ＝ 到字节 (右移 (clrValue, 24))<br /> R ＝ 到字节 (右移 (clrValue, 16))<br /> G ＝ 到字节 (右移 (clrValue, 8))<br /> B ＝ 到字节 (clrValue)<br /> 返回 (取颜色值 (R, G, B))<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 DwmGetColorizationColor, 整数型, "Dwmapi.dll", "DwmGetColorizationColor"<br />     .参数 pcrColorization, , 传址<br />     .参数 pfOpaqueBlend, 逻辑型, 传址

• 关于调用DwmGetColorizationColor的问题_精易论坛 (125.la)
• DwmGetColorizationColor function (dwmapi.h) - Win32 ap...
  

路过围观一下，顺便帮顶

新技能GET√

支持开源~！感谢分享

瞧瞧~支持开源

很厉害的样子

学习到了学习到了

支持一下！

不错阿