取 Aero 主题的颜色

yyyxb

从 Windows Vista 开始，微软使用了 DWM （桌面窗口管理器）处理一些动画和视觉效果，包括毛玻璃框架、3D窗口变换动画、窗口翻转和高分辨率支持。而且，从 Windows Vista 开始，只要开启了 Areo（其实就是启用了 DWM），窗口边框可以设置主题颜色，比 Windows XP 的贴图主题更加灵活。（Windows 8 及以上版本虽然没有 Aero 效果，但是也开启了 DWM）

废话说完了。这个源码是用来获取现在使用主题的颜色的，不是 WinXP 那种颜色，而是 Windows Vista 及以上版本的主题颜色。这个源码只能使用在 Windows Vista 及以上版本。

  

子程序名	返回值类型	公开	备 注
取Aero窗口颜色	整数型		返回颜色值，适用于 Vista 及以上版本
参数名	类 型	参考	可空	数组	备 注
透明度	整数型

变量名	类 型	静态	数组	备 注
ColorValue	长整数型
ColorCode	文本型
Transp	整数型

ColorValue ＝ 到长整数 (取数值注册项 (3, “Software\Microsoft\Windows\DWM\ColorizationColor”, ))
ColorCode ＝ 取文本右边 (进制_十到十六 (ColorValue, 真), 8)
Transp ＝ 进制_十六到十 (取文本左边 (ColorCode, 2))
判断 (是否为空 (透明度) ＝ 假)
透明度 ＝ Transp


返回 (网页_取十进制颜色值 (取文本右边 (ColorCode, 6)))

.版本 2<br /> <br /> .子程序 取Aero窗口颜色, 整数型, , 返回颜色值，适用于 Vista 及以上版本<br /> .参数 透明度, 整数型, 参考 可空<br /> .局部变量 ColorValue, 长整数型<br /> .局部变量 ColorCode, 文本型<br /> .局部变量 Transp, 整数型<br /> <br /> ColorValue ＝ 到长整数 (取数值注册项 (3, “Software\Microsoft\Windows\DWM\ColorizationColor”, ))<br /> ColorCode ＝ 取文本右边 (进制_十到十六 (ColorValue, 真), 8)<br /> Transp ＝ 进制_十六到十 (取文本左边 (ColorCode, 2))<br /> .判断开始 (是否为空 (透明度) ＝ 假)<br />     透明度 ＝ Transp<br /> .默认<br /> <br /> .判断结束<br /> 返回 (网页_取十进制颜色值 (取文本右边 (ColorCode, 6)))

用途：例如获取主题的颜色用来对自己设计的窗口进行美化等。
2024.3.20 补充：抱歉，源码弄错了，要用精易模块的“网页_取十进制颜色值”，而不是进制转换

录制时有点卡而且帧数低，但其实效果挺理想的

xia3422

打包成品下载地址回复可见

year1970

感谢分享

光影魔术

感谢分享源码

bianyuan456

已经顶贴，感谢您对论坛的支持！

396384183

感谢发布原创作品，精易因你更精彩！6666666666666

豆豆灰常开心

感谢楼主分享！

查过

下个学习一下

kyo9766

学习一下怎么获取的参数，感谢分享

乡下佬陈

很强给力