浏览器访问网址

marting · 发表于 2017-5-13 11:14:29

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun openbrowser (path / exe)
(if (and
(setq exe (vl-registry-read "HKEY_CLASSES_ROOT\\.htm" ""))
(setq exe (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\" exe "\\shell\\open\\command" "")))
(wcmatch exe "\"*\"*")
(setq exe (substr exe 2 (1- (vl-string-search "\"" exe 1))))
(setq exe (findfile exe))
)
(startapp exe path)
)
)

例子：
(openbrowser "bbs.xdcad.net")
(openbrowser "c:\\")

xyccf · 发表于 2017-5-13 17:03:36

感谢楼主分享

434939575 · 发表于 2017-5-13 17:08:41

谢谢+谢谢+谢谢

xtdwynij · 发表于 2017-5-13 22:49:00

高手。点赞！虽然我用不上。。。。

kqqt6236 · 发表于 2017-5-14 00:05:53

谢谢楼主分享

434939575 · 发表于 2021-10-28 13:52:41

感谢分享，请问这个怎么打开火狐浏览器.

genius_8237 · 发表于 2024-4-8 13:20:08

没有看明白的，研究一下吧

账号		自动登录	找回密码
密码			立即注册

[每日一码] 浏览器访问网址