天正lisp文件夹_LISP文件加载设置

下面开始编写初始化

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)