很好用的注册表取安装目录，刚出炉的

wuwenhao

  

子程序名	返回值类型	公开	备 注
程序_取安装目录EX	文本型
参数名	类 型	参考	可空	数组	备 注
程序名称	文本型				比如：e.exe

变量名	类 型	静态	数组	备 注
注册表	注册表操作
键名数组	文本型		0
i	整数型

注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )
计次循环首 (取数组成员数 (键名数组), i)
如果真 (寻找文本 (键名数组 , 程序名称, , 假) ≠ -1)
返回 (键名数组 )

计次循环尾 ()
返回 (“”)

.版本 2<br /> <br /> .子程序 程序_取安装目录EX, 文本型, 公开<br /> .参数 程序名称, 文本型, , 比如：e.exe<br /> .局部变量 注册表, 注册表操作<br /> .局部变量 键名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )<br /> .计次循环首 (取数组成员数 (键名数组), i)<br /> <br />     .如果真 (寻找文本 (键名数组 , 程序名称, , 假) ≠ -1)<br />         返回 (键名数组 )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)

XJxaiojing

这个分享太棒啦，感谢！

小豹珠宝

小竺 发表于 2025-3-3 05:07
[e=0].版本 2

.子程序 程序_取安装目录EX, 文本型, 公开

错误(4): 没有找到名为“注册表操作”的数据类型。

小竺

代码有一点小错误  键名数组[i]

小竺

陈云135 发表于 2025-2-18 23:50
错误(11): 逗号（参数分隔符）处于错误位置。
编译现行易程序失败或被中止! ...

.版本 2

.子程序 程序_取安装目录EX, 文本型, 公开
.参数 程序名称, 文本型, , 比如：e.exe
.局部变量 注册表, 注册表操作
.局部变量 键名数组, 文本型, , "0"
.局部变量 i, 整数型

注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )
.计次循环首 (取数组成员数 (键名数组), i)

    .如果真 (寻找文本 (键名数组 <i>, 程序名称, , 假) ≠ -1)
        返回 (键名数组 <i>)
    .如果真结束

.计次循环尾 ()
返回 (“”)

小竺

  

子程序名	返回值类型	公开	备 注
程序_取安装目录EX	文本型
参数名	类 型	参考	可空	数组	备 注
程序名称	文本型				比如：e.exe

变量名	类 型	静态	数组	备 注
注册表	注册表操作
键名数组	文本型		0
i	整数型

注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )
计次循环首 (取数组成员数 (键名数组), i)
如果真 (寻找文本 (键名数组 [i], 程序名称, , 假) ≠ -1)
返回 (键名数组 [i])

计次循环尾 ()
返回 (“”)

.版本 2<br /> <br /> .子程序 程序_取安装目录EX, 文本型, 公开<br /> .参数 程序名称, 文本型, , 比如：e.exe<br /> .局部变量 注册表, 注册表操作<br /> .局部变量 键名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )<br /> .计次循环首 (取数组成员数 (键名数组), i)<br /> <br />     .如果真 (寻找文本 (键名数组 <i>, 程序名称, , 假) ≠ -1)<br />         返回 (键名数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)

正确代码 有一点小问题

陈云135

Canada 发表于 2024-10-17 14:34
[e=2].版本 2

.子程序 程序_取安装目录EX, 文本型, 公开

错误(11): 逗号（参数分隔符）处于错误位置。
编译现行易程序失败或被中止!

jainghuimo

11111111111111111111

h1003591791

感谢分享

熊不熊

感谢分享，很给力！~