.版本 2
.支持库 eCompress
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.如果真 (取安装目录 () ＝ “”)
信息框 (“请先安装易语言或者您删除了易语言注册表！”, 64, )
.如果真结束
.子程序 取安装目录, 文本型, 公开, 取易语言安装文件目录.未安装易语言返回空
.局部变量 路径, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.如果真 (注册项是否存在 (1, “.e\”) ＝ 假)
返回 (“”)
.如果真结束
路径 ＝ 取文本注册项 (1, 取文本注册项 (1, “.e\”, ) ＋ “\Shell\Open\Command\”, )
a ＝ 寻找文本 (路径, #引号, , 假)
.如果 (a ＝ -1)
a ＝ 寻找文本 (路径, “ ”, , 假)
.如果真 (a ≠ -1)
路径 ＝ 取文本左边 (路径, a － 1)
.如果真结束
.否则
b ＝ 寻找文本 (路径, #引号, a ＋ 1, 假)
路径 ＝ 取文本中间 (路径, a ＋ 1, b － a － 1)
.如果结束
.如果真 (文件是否存在 (路径) ＝ 假)
返回 (“”)
.如果真结束
返回 (取文本左边 (路径, 倒找文本 (路径, “\”, , 假)))
.子程序 _按钮1_被单击
.判断开始 (文件是否存在 (取安装目录 () ＋ “tools\link.ini”))
写到文件 (取安装目录 () ＋ “tools\1.zip”, #UPX)
ZIP压缩1.解压 (取安装目录 () ＋ “tools\1.zip”, 取安装目录 () ＋ “tools\”)
删除文件 (取安装目录 () ＋ “tools\1.zip”)
写到文件 (取安装目录 () ＋ “tools\link.ini”, 到字节集 (到文本 (读入文件 (取安装目录 () ＋ “tools\link.ini”)) ＋ #换行符 ＋ #a))
信息框 (“成功！请打开易语言编译测试！”, 64, )
.默认
信息框 (“请确定您的目录是否完整。”, 64, )
.判断结束
.子程序 _按钮2_被单击
.局部变量 c, 文本型
卸载 (“README”)
卸载 (“BUGS”)
卸载 (“COPYING”)
卸载 (“LICENSE”)
卸载 (“NEWS”)
卸载 (“THANKS”)
卸载 (“TODO”)
删除文件 (取安装目录 () ＋ “tools\README.1ST”)
删除文件 (取安装目录 () ＋ “tools\upx.1”)
删除文件 (取安装目录 () ＋ “tools\upx.exe”)
写到文件 (取安装目录 () ＋ “tools\link.ini”, 到字节集 (子文本替换 (到文本 (读入文件 (取安装目录 () ＋ “tools\link.ini”)), #换行符 ＋ #a, “”, , , 真)))
信息框 (“已卸载！”, 64, )
.子程序 卸载
.参数 文件名, 文本型
删除文件 (取安装目录 () ＋ “tools\” ＋ 文件名 ＋ “.”)
