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

ctry78985

感谢分享

shanyukun

WinWord.exe，excel.exe好像取不到呀

515889127

啥也没取到

renhe2018

不错的思路。

紫苏7798

你这样路径名里包含cha询项  会导致出错,给你优化了下

  

调试输出 (程序_取安装目录EX (“e”))

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

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

如果真 (取文本右边 (程序名称, 4) ≠ “.exe”)
程序名称 ＝ 程序名称 ＋ “.exe”

注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )
调试输出 (键名数组)
计次循环首 (取数组成员数 (键名数组), i)
如果真 (文件_取文件名 (键名数组 [i], 真) ＝ 程序名称)
局返回 ＝ 键名数组 [i]
跳出循环 ()

计次循环尾 ()
返回 (局返回)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (程序_取安装目录EX (“e”))<br /> <br /> <br /> .子程序 程序_取安装目录EX, 文本型, 公开<br /> .参数 程序名称, 文本型, , 比如：e.exe 写为e<br /> .局部变量 注册表, 注册表操作<br /> .局部变量 键名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局返回, 文本型<br /> <br /> .如果真 (取文本右边 (程序名称, 4) ≠ “.exe”)<br />     程序名称 ＝ 程序名称 ＋ “.exe”<br /> .如果真结束<br /> <br /> 注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )<br /> 调试输出 (键名数组)<br /> .计次循环首 (取数组成员数 (键名数组), i)<br />     .如果真 (文件_取文件名 (键名数组 <i>, 真) ＝ 程序名称)<br />         局返回 ＝ 键名数组 <i><br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (局返回)

xue9528

来看看…………

w5717

写错了，键名数组[i]  

小虎来了

感谢分享。