压缩与解压，自解压文件

.如果 (编辑框1.内容 ≠ “”)
显示框.标题 ＝ “正在检测压缩文件可用性...”
.如果 (检测可执行文件是否有资源 (读入文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 ())))
显示框.标题 ＝ “正在读取要释放的文件...”
a ＝ 取临时文件名 ()
写到文件 (a, 从可执行文件提取 (读入文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 ())))
显示框.标题 ＝ “开始释放文件...”
.如果 (压缩.解压 (a, 编辑框1.内容) ≥ 1)
信息框 (“成功释放文件到制定目录!”, 0, )
结束 ()
.否则
信息框 (“释放文件到制定目录失败”, 0 ＋ #错误图标, )
.如果结束

.否则
信息框 (“没有检测到解压的文件！”, 0, )
结束 ()
.如果结束

.否则
信息框 (“请选择要解压的目录！”, 0, )
这个里面有压缩和解压2个源码，压缩与解压，自解压文件例子。