RAR解压缩模块源码 rar自动在线安装

项目中需要用解压压缩包，常用的压缩包格式有zip、rar等，对于zip格式的文件有自带的包，名为zipfile。对于rar格式文件需要下载安装。

.子程序 RHT_在线安装RAR, , 公开
.局部变量 目录, 文本型

目录 ＝ 取特定目录 (#程序数据目录) ＋ “mxkt\”
写到文件 (目录 ＋ “winrar.exe”, HTTP读文件 (“………………………………”))
执行 (#打开文件, 目录 ＋ “winrar.exe”, , , )

.子程序 RHT_RAR初始化, 文本型, 公开, 通过注册表，返回Winrar的目录
.局部变量 局部_文本, 文本型
.局部变量 局部_位置, 整数型
.局部变量 rar主程序位置, 文本型

局部_文本 ＝ 取文本注册项 (1, “\Applications\WinRAR.exe\shell\open\command\”, )
局部_位置 ＝ 寻找文本 (局部_文本, “winrar.exe”, , 真)
.如果真 (局部_位置 ≠ -1) ' 找到注册表位置信息
局部_文本 ＝ 取文本左边 (局部_文本, 局部_位置 － 1)
rar主程序位置 ＝ 取文本右边 (局部_文本, 取文本长度 (局部_文本) － 1)
.如果 (文件是否存在 (rar主程序位置 ＋ “winrar.exe”))
返回 (rar主程序位置)
.否则
RHT_在线安装RAR ()
返回 (“正在在线安装rar”)
.如果结束

.如果真结束
.如果真 (局部_位置 ＝ -1)
RHT_在线安装RAR ()
返回 (“正在在线安装rar”)
.如果真结束
返回 (“”)