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

独特舞步

有的用户win10自动放大到125% ，怎样用易语言来执行文件自动勾选？ 游戏自动勾选这个就行。用易语言来勾选。。。怎么操作呢?

chenyucheng

代码送上——

  

子程序名	返回值类型	公开	备 注
设置特定程序禁用显示缩放	逻辑型		子程序由精易论坛 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”) 且 寻找文本 (兼容性属性, “ HIGHDPIAWARE”, , 假) ＝ -1)
如果 (兼容性属性 ＝ “”)
兼容性属性 ＝ “HIGHDPIAWARE”
兼容性属性 ＝ 兼容性属性 ＋ “ HIGHDPIAWARE”
兼容性属性字节集 ＝ 到字节集 (兼容性属性) ＋ { 0 }
执行结果 ＝ RegSetValueEx (hKey, 程序完整路径, 0, #REG_SZ, 兼容性属性字节集, 取文本长度 (兼容性属性) ＋ 1)
判断 (执行结果 ＝ #ERROR_SUCCESS )
RegCloseKey (hKey)
返回 (真)
RegCloseKey (hKey)
返回 (假)

RegCloseKey (hKey)
返回 (真)

DLL命令名	返回值类型	公开	备 注
RegCreateKeyEx	长整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
RegCreateKeyExA
参数名	类 型	传址	数组	备 注
hKey	整数型			0
lpSubKey	文本型			0
Reserved	整数型			0
lpClass	文本型			0
dwOptions	整数型			0
samDesired	整数型			0
lpSecurityAttributes	整数型			0
phkResult	整数型			0
lpdwDisposition	整数型			0

DLL命令名	返回值类型	公开	备 注
RegCloseKey	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
RegCloseKey
参数名	类 型	传址	数组	备 注
hKey	整数型			0

DLL命令名	返回值类型	公开	备 注
RegQueryValueEx	长整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
RegQueryValueExA
参数名	类 型	传址	数组	备 注
hKey	整数型			0
lpValueName	文本型			0
lpReserved	整数型			0
lpType	整数型			0
lpData	字节集			0
lpcbData	整数型			0

DLL命令名	返回值类型	公开	备 注
RegSetValueEx	长整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
RegSetValueExA
参数名	类 型	传址	数组	备 注
hKey	整数型			0
lpValueName	文本型			0
Reserved	整数型			0
dwType	整数型			0
lpData	字节集			0
cbData	整数型			0

常量名称	常量值	公 开	备 注
HKEY_CURRENT_USER_	-2147483647
KEY_READ	131097
KEY_WRITE	131078
ERROR_SUCCESS	0		操作成功完成
ERROR_FILE_NOT_FOUND	2		系统找不到指定的文件
ERROR_MORE_DATA	234
REG_SZ	1

.版本 2<br /> <br /> .子程序 设置特定程序禁用显示缩放, 逻辑型, 公开, 子程序由精易论坛 chenyucheng 编写。成功返回真，失败返回假。<br /> .参数 程序完整路径, 文本型<br /> .局部变量 hKey, 整数型<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”) 且 寻找文本 (兼容性属性, “ HIGHDPIAWARE”, , 假) ＝ -1)<br />     .如果 (兼容性属性 ＝ “”)<br />         兼容性属性 ＝ “HIGHDPIAWARE”<br />     .否则<br />         兼容性属性 ＝ 兼容性属性 ＋ “ HIGHDPIAWARE”<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 /> 返回 (真)<br /> <br /> .DLL命令 RegCreateKeyEx, 长整数型, "advapi32", "RegCreateKeyExA"<br />     .参数 hKey, 整数型, , 0<br />     .参数 lpSubKey, 文本型, , 0<br />     .参数 Reserved, 整数型, , 0<br />     .参数 lpClass, 文本型, , 0<br />     .参数 dwOptions, 整数型, , 0<br />     .参数 samDesired, 整数型, , 0<br />     .参数 lpSecurityAttributes, 整数型, , 0<br />     .参数 phkResult, 整数型, 传址, 0<br />     .参数 lpdwDisposition, 整数型, , 0<br /> <br /> .DLL命令 RegCloseKey, 整数型, "advapi32", "RegCloseKey"<br />     .参数 hKey, 整数型, , 0<br /> <br /> .DLL命令 RegQueryValueEx, 长整数型, "advapi32", "RegQueryValueExA"<br />     .参数 hKey, 整数型, , 0<br />     .参数 lpValueName, 文本型, , 0<br />     .参数 lpReserved, 整数型, , 0<br />     .参数 lpType, 整数型, 传址, 0<br />     .参数 lpData, 字节集, 传址, 0<br />     .参数 lpcbData, 整数型, 传址, 0<br /> <br /> .DLL命令 RegSetValueEx, 长整数型, "advapi32", "RegSetValueExA"<br />     .参数 hKey, 整数型, , 0<br />     .参数 lpValueName, 文本型, , 0<br />     .参数 Reserved, 整数型, , 0<br />     .参数 dwType, 整数型, , 0<br />     .参数 lpData, 字节集, 传址, 0<br />     .参数 cbData, 整数型, , 0<br /> <br /> <br /> .常量 HKEY_CURRENT_USER_, "-2147483647"<br /> .常量 KEY_READ, "131097"<br /> .常量 KEY_WRITE, "131078"<br /> .常量 ERROR_SUCCESS, "0", , 操作成功完成<br /> .常量 ERROR_FILE_NOT_FOUND, "2", , 系统找不到指定的文件<br /> .常量 ERROR_MORE_DATA, "234"<br /> .常量 REG_SZ, "1"

熬夜

独特舞步

熬夜 发表于 2024-8-15 11:27

我需要是软件DPI。易语言执行置DPI。

熬夜

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

独特舞步

chenyucheng 发表于 2024-8-15 17:36
代码送上——

[e=0].版本 2

给力！！！