程序_取安装目录 改进版

Canada

  

子程序名	返回值类型	公开	备 注
程序_取安装目录	文本型		成功返回目录，以“\”结尾。失败返回空文本。
参数名	类 型	参考	可空	数组	备 注
程序主文件名	文本型				如：e.exe

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

局_路径 ＝ 取文本注册项 ( #本地机器, “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\App Paths\” ＋ 程序主文件名 ＋ “\Path”, )
如果 (局_路径 ≠ “”)
如果真 (取文本右边 (局_路径, 1) ≠ “\”)
局_路径 ＝ 局_路径 ＋ “\”

局_路径 ＝ 取文本注册项 ( #根类, “Applications\” ＋ 程序主文件名 ＋ “\shell\open\command\”, )
如果真 (局_路径 ≠ “”)
如果 (局_路径 ≈ #引号 )
局_路径 ＝ 文本_取出中间文本 (局_路径, #引号, #引号, , )
局_路径 ＝ 文件_取目录 (局_路径)
' 部分系统记录安装路径不规范导致
局_路径 ＝ 文本_取左边 (局_路径, 取空白文本 (1), -1, )



如果真 (局_路径 ＝ “”)
' HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Hearthstone
局_路径 ＝ 取文本注册项 ( #本地机器, “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 文本_取左边 (程序主文件名, “.exe”, , 真) ＋ “\InstallLocation”, ) ＋ “\”

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

计次循环尾 ()

返回 (局_路径)

.版本 2<br /> <br /> .子程序 程序_取安装目录, 文本型, 公开, 成功返回目录，以“\”结尾。失败返回空文本。<br /> .参数 程序主文件名, 文本型, , 如：e.exe<br /> .局部变量 局_路径, 文本型<br /> .局部变量 注册表, 注册表操作<br /> .局部变量 键名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n<br /> <br /> 局_路径 ＝ 取文本注册项 (#本地机器, “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\App Paths\” ＋ 程序主文件名 ＋ “\Path”, )<br /> .如果 (局_路径 ≠ “”)<br />     .如果真 (取文本右边 (局_路径, 1) ≠ “\”)<br />         局_路径 ＝ 局_路径 ＋ “\”<br />     .如果真结束<br /> <br /> .否则<br />     局_路径 ＝ 取文本注册项 (#根类, “Applications\” ＋ 程序主文件名 ＋ “\shell\open\command\”, )<br />     .如果真 (局_路径 ≠ “”)<br />         .如果 (局_路径 ≈ #引号)<br />             局_路径 ＝ 文本_取出中间文本 (局_路径, #引号, #引号, , )<br />             局_路径 ＝ 文件_取目录 (局_路径)<br />         .否则<br />             ' 部分系统记录安装路径不规范导致<br />             局_路径 ＝ 文本_取左边 (局_路径, 取空白文本 (1), -1, )<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> .如果真 (局_路径 ＝ “”)<br />     ' HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Hearthstone<br />     局_路径 ＝ 取文本注册项 (#本地机器, “SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 文本_取左边 (程序主文件名, “.exe”, , 真) ＋ “\InstallLocation”, ) ＋ “\”<br /> .如果真结束<br /> <br /> .如果真 (局_路径 ＝ “”)<br />     n ＝ 注册表.枚举键名 (“HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store”, 键名数组, , )<br />     .计次循环首 (n, i)<br />         .如果真 (文本_取右边 (键名数组 <i>, “\”, , 真) ＝ 程序主文件名)<br />             局_路径 ＝ 文本_取左边 (键名数组 <i>, 程序主文件名, , 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> 返回 (局_路径)

在不影响原命令使用的情况下极大的增强了取程序目录的能力！主要是新增了两处注册表cha询和搜索遍历，无缝替换之前的命令


补充内容 (2024-10-19 20:58):
最后一个如果真应该是判断是否为反斜杠"\"而不是空文本啊；或者将后两个如果真的代码块互换位置，小小疏忽

zl229827

kenan236

666666666666666666666666

yuxuanju

感谢分享经验，精易有你更精彩！

gogrgw

感谢分享，很给力！~

水牛

互相学习一下，都是在学习中成长

白加黑2022

感谢你的支持，精易有你更精彩

白加黑2022

感谢你的支持，精易有你更精彩

sqx

5555555555555555555555555555555555555555555

liutao24k

3333333333333333333333333333