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

Humanway

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

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

复制代码

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

1. (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
)

Humanway

自己顶一下