获取电脑中打开指定扩展名程序的完整路径

Humanway

使用场景：
当我们发布的插件，需要调用名部程序打开文件时，可以使用(startapp appcmd[file])函数，比如我们要打开一个".TXT"文件：

1. (startapp "notepad" "test.txt")

复制代码

但我们要打开一个".xlsx"文件呢

1. (startapp "excel" "test.xlsx")

复制代码

会返回：nil，因为Excel.exe的路径不在搜索路径中。
如果还原到实际环境中，可能面临的问题更多，电脑里安装了WPS还是Office？如果安装的是Office，安装的是哪个版本？因为不同版本的Office，安装路径不是固定的。
解决思路：
通过Windows注册表查找到指定扩展名的默认程序，再通过默认程序在注册表中注册的打开指定扩展名的打开命令，即可找到程序的完整路径，完整函数源代码如下：

2. ;作者：Humanway
   
3. ;时间：2020-09-2316:00:58
   
4. ;exp:扩展名变量，比如"xlsx",记得没有前面的"."
   
5. (defun defaultapp (exp / app_P a b)
   
6.   (setq app_P nil)
   
7.   (if (setq a (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\." exp)));在注册表中查找该扩展名注册的默认程
   
8.     (progn
   
9.       (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"
   
10.             app_P (list 34)
    
11.             )
    
12.       (while (/= b 34);提取出默认程序的完整路径
    
13.         (setq b      (car a)
    
14.               a      (cdr a)
    
15.               app_P (append app_P (list b))
    
16.               )
    
17.       )
    
18.       (setq app_P (vl-list->string app_P))
    
19.     )
    
20.   )
    
21.   (princ)
    
22.   app_P
    
23. )

;作者：Humanway<br /> ;时间：2020-09-2316:00:58<br /> ;exp:扩展名变量，比如"xlsx",记得没有前面的"."<br /> (defun defaultapp (exp / app_P a b)<br />   (setq app_P nil)<br />   (if (setq a (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\." exp)));在注册表中查找该扩展名注册的默认程<br />     (progn<br />       (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"<br />             app_P (list 34)<br />             )<br />       (while (/= b 34);提取出默认程序的完整路径<br />         (setq b      (car a)<br />               a      (cdr a)<br />               app_P (append app_P (list b))<br />               )<br />       )<br />       (setq app_P (vl-list->string app_P))<br />     )<br />   )<br />   (princ)<br />   app_P<br /> )

如果电脑中没有安装打开指定扩展名的程序，返回：nil

Humanway

自己顶一下，之前也一直为这个事情烦恼，今天终于打到一个比较好的方法

tranney

你这个有点扯吧，我正常都是
(startapp "Explorer"  "d:\\bak\\公共建筑给排水水力计算.xls")
就可以了啊不需要获取excel的路径啊，而且这个什么都可以打开，

panliang9

阿勇写的工具
http://bbs.mjtd.com/thread-113028-1-1.html

Humanway

tranney 发表于 2020-9-23 21:08
你这个有点扯吧，我正常都是
(startapp "Explorer"  "d:\\bak\\公共建筑给排水水力计算.xls")
就可以了 ...

谢谢，果然更好