怎样执行文件DPI？win10 缩放大小

瑾色长安

https://bbs.125.la/thread-14831593-1-1.html
这个帖子是勾选 替代高DPI缩放行为

那么怎么取消勾选呢？

菊部变暖

反向操作就完事了

  

子程序名	返回值类型	公开	备 注
设置特定程序禁用显示缩放	逻辑型		子程序由精易论坛 chenyucheng 编写。成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
程序完整路径	文本型

变量名	类 型	静态	数组	备 注
hKey	整数型
执行结果	整数型
属性数据类型	整数型
兼容性属性	文本型
兼容性属性字节集	字节集
兼容性属性字节集长度	整数型
寻找结果	整数型

如果真 (取反 (文件是否存在 (程序完整路径)))
返回 (假)
' 由于易语言自带的注册表操作命令不能读写名字带有反斜线(\)的值，因此用 Windows API 读写。
RegCreateKeyEx ( #HKEY_CURRENT_USER_, “Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers”, 0, 字符 (0), 0, 位或 ( #KEY_READ, #KEY_WRITE ), 0, hKey, 0)
兼容性属性字节集长度 ＝ 255
兼容性属性字节集 ＝ 取空白字节集 (兼容性属性字节集长度)
执行结果 ＝ RegQueryValueEx (hKey, 程序完整路径, 0, 属性数据类型, 兼容性属性字节集, 兼容性属性字节集长度)
判断 (执行结果 ＝ #ERROR_SUCCESS 且 位与 (属性数据类型, #REG_SZ ) ≠ 0)
兼容性属性 ＝ 到文本 (兼容性属性字节集)
判断 (执行结果 ＝ #ERROR_FILE_NOT_FOUND )
兼容性属性 ＝ “”
判断 (执行结果 ＝ #ERROR_MORE_DATA )
兼容性属性字节集 ＝ 取空白字节集 (兼容性属性字节集长度)
执行结果 ＝ RegQueryValueEx (hKey, 程序完整路径, 0, 属性数据类型, 兼容性属性字节集, 兼容性属性字节集长度)
判断 (执行结果 ＝ #ERROR_SUCCESS 且 属性数据类型 ＝ #REG_SZ )
兼容性属性 ＝ 到文本 (兼容性属性字节集)
判断 (执行结果 ＝ #ERROR_FILE_NOT_FOUND )
兼容性属性 ＝ “”
判断 (执行结果 ＝ #ERROR_MORE_DATA )
RegCloseKey (hKey)
返回 (假)
RegCloseKey (hKey)
返回 (假)

RegCloseKey (hKey)
返回 (假)
寻找结果 ＝ 寻找文本 (兼容性属性, “HIGHDPIAWARE”, , 假)
如果真 (寻找结果 ≠ -1)
兼容性属性 ＝ 文本替换 (兼容性属性, 寻找结果, 12, )
兼容性属性字节集 ＝ 到字节集 (兼容性属性) ＋ { 0 }
执行结果 ＝ RegSetValueEx (hKey, 程序完整路径, 0, #REG_SZ, 兼容性属性字节集, 取文本长度 (兼容性属性) ＋ 1)
判断 (执行结果 ＝ #ERROR_SUCCESS )
RegCloseKey (hKey)
返回 (真)
RegCloseKey (hKey)
返回 (假)

RegCloseKey (hKey)
返回 (真)

.版本 2<br /> <br /> .子程序 设置特定程序禁用显示缩放, 逻辑型, 公开, 子程序由精易论坛 chenyucheng 编写。成功返回真，失败返回假。<br /> .参数 程序完整路径, 文本型<br /> .局部变量 hKey, 整数型<br /> .局部变量 执行结果, 整数型<br /> .局部变量 属性数据类型, 整数型<br /> .局部变量 兼容性属性, 文本型<br /> .局部变量 兼容性属性字节集, 字节集<br /> .局部变量 兼容性属性字节集长度, 整数型<br /> .局部变量 寻找结果, 整数型<br /> <br /> .如果真 (取反 (文件是否存在 (程序完整路径)))<br />     返回 (假)<br /> .如果真结束<br /> ' 由于易语言自带的注册表操作命令不能读写名字带有反斜线(\)的值，因此用 Windows API 读写。<br /> RegCreateKeyEx (#HKEY_CURRENT_USER_, “Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers”, 0, 字符 (0), 0, 位或 (#KEY_READ, #KEY_WRITE), 0, hKey, 0)<br /> 兼容性属性字节集长度 ＝ 255<br /> 兼容性属性字节集 ＝ 取空白字节集 (兼容性属性字节集长度)<br /> 执行结果 ＝ RegQueryValueEx (hKey, 程序完整路径, 0, 属性数据类型, 兼容性属性字节集, 兼容性属性字节集长度)<br /> .判断开始 (执行结果 ＝ #ERROR_SUCCESS 且 位与 (属性数据类型, #REG_SZ) ≠ 0)<br />     兼容性属性 ＝ 到文本 (兼容性属性字节集)<br /> .判断 (执行结果 ＝ #ERROR_FILE_NOT_FOUND)<br />     兼容性属性 ＝ “”<br /> .判断 (执行结果 ＝ #ERROR_MORE_DATA)<br />     兼容性属性字节集 ＝ 取空白字节集 (兼容性属性字节集长度)<br />     执行结果 ＝ RegQueryValueEx (hKey, 程序完整路径, 0, 属性数据类型, 兼容性属性字节集, 兼容性属性字节集长度)<br />     .判断开始 (执行结果 ＝ #ERROR_SUCCESS 且 属性数据类型 ＝ #REG_SZ)<br />         兼容性属性 ＝ 到文本 (兼容性属性字节集)<br />     .判断 (执行结果 ＝ #ERROR_FILE_NOT_FOUND)<br />         兼容性属性 ＝ “”<br />     .判断 (执行结果 ＝ #ERROR_MORE_DATA)<br />         RegCloseKey (hKey)<br />         返回 (假)<br />     .默认<br />         RegCloseKey (hKey)<br />         返回 (假)<br />     .判断结束<br /> <br /> .默认<br />     RegCloseKey (hKey)<br />     返回 (假)<br /> .判断结束<br /> 寻找结果 ＝ 寻找文本 (兼容性属性, “HIGHDPIAWARE”, , 假)<br /> .如果真 (寻找结果 ≠ -1)<br />     兼容性属性 ＝ 文本替换 (兼容性属性, 寻找结果, 12, )<br /> <br />     兼容性属性字节集 ＝ 到字节集 (兼容性属性) ＋ { 0 }<br />     执行结果 ＝ RegSetValueEx (hKey, 程序完整路径, 0, #REG_SZ, 兼容性属性字节集, 取文本长度 (兼容性属性) ＋ 1)<br />     .判断开始 (执行结果 ＝ #ERROR_SUCCESS)<br />         RegCloseKey (hKey)<br />         返回 (真)<br />     .默认<br />         RegCloseKey (hKey)<br />         返回 (假)<br />     .判断结束<br /> <br /> .如果真结束<br /> RegCloseKey (hKey)<br /> 返回 (真)

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14764057
https://bbs.125.la/forum.php?mod=viewthread&tid=14455580 试试