您现在的位置是：主页 > news > 专业外贸网站制作/重庆seo网络推广优化
专业外贸网站制作/重庆seo网络推广优化
admin2025/5/2 7:02:56【news】
简介专业外贸网站制作,重庆seo网络推广优化,河南大学学科建设处网站,做购物网站的图标从哪里来下面开始编写初始化LISP程序。这里，我们创建一个LISP程序，命名为：Loadtbox.lsp，这个程序将负责把菜单、主程序等加载到系统中。以下是这个Loadtbox.lsp的写法。我尽量在注释中解释：;;首先定义初始化函数(defun Inittbo…
下面开始编写初始化
LISP
程序。这里，我们创建一个
LISP
程序，命名为：
Loadtbox.lsp
，这
个程序将负责把菜单、主程序等加载到系统中。
以下是这个
Loadtbox.lsp
的写法。我尽量在注释中解释：
;;
首先定义初始化函数
(defun InittboxApplication (/
;;
内部函数
GetMyApplicationPath GettboxPath
strParse
StrUnParse
tbox_AddSupportPath
Load_tboxMenu
tbox_placemenu
;;
局部变量
tbox_cmdecho_save
)
;;;
取得本程序的路径
.
;;;
文件路径从注册表中读取，这些信息由安装程序负责写入注册表
;;; ---------------------------------------------------------------------------------
(defun GetMyApplicationPath (AppID)
(vl-registry-read
(strcat
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"
AppID
"_is1"
)
"Inno Setup: App Path"
)
)
(defun GettboxPath ()
(GetMyApplicationPath "Lisp
工具箱
")
)
;;;
解析字符串为表(函数来自明经通道转载)
;;; ---------------------------------------------------------------------------------
(defun strParse (Str Delimiter / SearchStr StringLen return n char)
(setq SearchStr Str)
(setq StringLen (strlen SearchStr))
(setq return '())
(while (> StringLen 0)
(setq n 1)
