[TB-LISP函数]：TBC:OpenUrl 用默认浏览器打开指定的链接url，并可附带Get参数

tengteb · 发表于 2022-6-7 22:43:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

本帖最后由 tengteb 于 2022-6-13 18:34 编辑

  ;用默认浏览器打开指定的url，并可附带Get参数。
(defun TBC:OpenUrl (url p / Key cmd)
  (if (and p (/= p ""))
(setq Key "HKEY_CLASSES_ROOT\\http\\shell\\open\\command"
      cmd (vl-registry-read Key "")
      url (strcat url "?" p)
) ;else
(setq cmd "explorer")
  ) ;if
  (startapp cmd url)
)

qqqincccken · 发表于 2022-6-10 21:22:53

谢您的提供收藏学习了

zizhumeizhilian · 发表于 2022-12-6 15:50:22

zizhumeizhilian邀请您访问晓东CAD家园-论坛
http://bbs.xdcad.net/?fromuid=776841

zizhumeizhilian · 发表于 2022-12-6 15:56:57

zizhumeizhilian邀请您访问晓东CAD家园-论坛
http://bbs.xdcad.net/?fromuid=776841

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

[源码] [TB-LISP函数]：TBC:OpenUrl 用默认浏览器打开指定的链接url，并可附带Get参数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。