屏幕取缩放值，求个算法源码

豆豆灰常开心

屏幕取缩放值，求个算法源码

熬夜

.版本 2

.子程序 设置自定义DPI缩放, 逻辑型, , 自定义win8以上系统缩放与布局,注销后才生效!
.参数 缩放比例, 整数型, , 比如100
.局部变量 注册表, 注册表操作, , , 调用了精易模块，可以用易语言本身的
.局部变量 临时变量, 整数型
.局部变量 DPI缩放注册表, 文本型

DPI缩放注册表 ＝ “HKEY_CURRENT_USER\Control Panel\Desktop”
.如果 (缩放比例 ＞ 125)
    临时变量 ＝ 2
.否则
    临时变量 ＝ 1
.如果结束
' 注册表.写DWORD值 (DPI缩放注册表, “EnablePerProcessSystemDPI”, 1)  ' win10修复应用缩放
注册表.写DWORD值 (DPI缩放注册表, “FocusBorderHeight”, 临时变量)
注册表.写DWORD值 (DPI缩放注册表, “FocusBorderWidth”, 临时变量)
注册表.写DWORD值 (DPI缩放注册表, “LogPixels”, 缩放比例 ÷ 100 × 96)
.如果 (注册表.写DWORD值 (DPI缩放注册表, “Win8DpiScaling”, 1))  ' 1为启用自定义缩放功能，0为取消
    返回 (真)
.否则
    返回 (假)

这段是写入的  你猜 读取怎么写

圆圈

同求，我昨天也遇到了这个问题

kingtt

好像是这个 系统_取系统DPI

blackmagic

系统_取系统dpi

by626

调试输出 (系统_取系统DPI ())

LYForever

zcjb114