获取电脑中打开指定扩展名程序的完整路径
本帖最后由 Humanway 于 2020-9-23 16:08 编辑使用场景：
当我们发布的插件，需要调用名部程序打开文件时，可以使用(startapp appcmd)函数，比如我们要打开一个".TXT"文件：
(startapp "notepad" "test.txt")
但我们要打开一个".xlsx"文件呢
(startapp "excel" "test.xlsx")
会返回：nil，因为Excel.exe的路径不在搜索路径中。
如果还原到实际环境中，可能面临的问题更多，电脑里安装了WPS还是Office？如果安装的是Office，安装的是哪个版本？因为不同版本的Office，安装路径不是固定的。
解决思路：
通过Windows注册表查找到指定扩展名的默认程序，再通过默认程序在注册表中注册的打开指定扩展名的打开命令，即可找到程序的完整路径，完整函数源代码如下：
;作者：Humanway
;时间：2020-09-2316:00:58
;exp:扩展名变量，比如"xlsx",记得没有前面的"."
(defun defaultapp (exp / app_P a b)
(setq app_P nil)
(if (setq a (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\." exp)));在注册表中查找该扩展名注册的默认程
(progn
(setq a (cdr (vl-string->list (vl-registry-read (strcat "HKEY_CURRENT_USER\\SOFTWARE\\Classes\\" a "\\shell\\open\\command"))));在注册表中查找默认程序文件打开参数，比如作者电脑中为:"C:\Users\human\AppData\Local\Kingsoft\WPS Office\11.1.0.9999\office6\wps.exe" /prometheus /et "%1"
app_P (list 34)
)
(while (/= b 34);提取出默认程序的完整路径
(setq b (car a)
a (cdr a)
app_P (append app_P (list b))
)
)
(setq app_P (vl-list->string app_P))
)
)
(princ)
app_P
)
如果电脑中没有安装打开指定扩展名的程序，返回：nil
自己顶一下，之前也一直为这个事情烦恼，今天终于打到一个比较好的方法 本帖最后由 tranney 于 2020-9-23 21:09 编辑
你这个有点扯吧，我正常都是
(startapp "Explorer""d:\\bak\\公共建筑给排水水力计算.xls")
就可以了啊不需要获取excel的路径啊，而且这个什么都可以打开，
阿勇写的工具
http://bbs.mjtd.com/thread-113028-1-1.html tranney 发表于 2020-9-23 21:08
你这个有点扯吧，我正常都是
(startapp "Explorer""d:\\bak\\公共建筑给排水水力计算.xls")
就可以了 ...
谢谢，果然更好
页:
[1]