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

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 /> 返回 (“”)

陈云135

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

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

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

jainghuimo

11111111111111111111

h1003591791

感谢分享

熊不熊

感谢分享，很给力！~

wj0923

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

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

取注册表目录，然后更改权限可以操作吗

ya1302626

注册操作  在哪里下载

Canada

  

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

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

n ＝ 注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )
计次循环首 (n, i)
如果真 (文本_取右边 (键名数组 [i], “\”, , 真) ＝ 程序主文件名)
返回 (文本_取左边 (键名数组 [i], 程序主文件名, , 真))

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

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

用我这个吧，这个路径确实能取到一些 @项目部004  

大王的

2164146325345634653434

爱易经精

感谢大神分享~！