超级解压支持库开源7Z RAR ZIP全部支持

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

系统目录 ＝ 取特定目录 (#Windows系统目录)
输出调试文本 (文件是否存在 (系统目录 ＋ “7z.exe”))
' 删除文件 (系统目录 ＋ “7z.exe”)
' 删除文件 (系统目录 ＋ “7z.dll”)
.如果真 (文件是否存在 (系统目录 ＋ “7z.exe”) ＝ 假)
写到文件 (系统目录 ＋ “7z.exe”, #匿名资源_5)
置文件属性 (系统目录 ＋ “7z.exe”, 6)
.如果真结束
.如果真 (文件是否存在 (系统目录 ＋ “7z.dll”) ＝ 假)
写到文件 (系统目录 ＋ “7z.dll”, #匿名资源_4)
置文件属性 (系统目录 ＋ “7z.dll”, 6)
.如果真结束
返回 (0) ' 可以根据您的需要返回任意数值

.子程序 超级解压, 逻辑型, 公开, 解压压缩文件，支持rar,zip,7z等等压缩文件的解压，支持带密码解压
.参数 待解压文件, 文本型, , 欲解压的文件的全路径
.参数 解压到的目录, 文本型, , 欲解压到的路径
.参数 解压密码, 文本型, 可空, 解压所用密码，没有密码就不填
.局部变量 匿名局部变量_1, 文本型
.局部变量 匿名局部变量_2, 逻辑型

.如果真 (是否为空 (解压密码))
解压密码 ＝ “”
.如果真结束
匿名局部变量_1 ＝ 系统目录 ＋ “7z.exe x ” ＋ #引号 ＋ 待解压文件 ＋ #引号 ＋ “ -y -p” ＋ 解压密码 ＋ “ -o” ＋ #引号 ＋ 解压到的目录 ＋ #引号
匿名局部变量_2 ＝ 运行 (匿名局部变量_1, 真, 1)
返回 (匿名局部变量_2)

' 全局_静态版 = 真 '<----------------------------------编译为静态版时,这个变量设为真,切记!
' 如果你要编译为静态版,将以上变量设为"真",并将 GetNewInf () 公开属性去掉,再用转换工具转换。
' 为了代码维护方便,支持库定义代码是放在这里(即: _启动子程序 里),不是放在 GetNewInf ()里。
' --------------注意事项:
' 1、 定义参数时要注意:带有 _传址 的参数属性,传递过来的是变量地址,不是数据本身也不是数据指针。
' 2、如果要增加新的命令,请在"命令定义子程序"里面的最后增加,否则会造成版本不兼容。
' 3、同样,要增加新的数据类型,也是从代码后面增加,否则会造成版本不兼容。
' 为什么这么麻烦,因为易库信息里的内容是顺序排列的,易语言IDE调用易库命令时,是按顺序对号入座的,如果随便插入新命令或删除命令,这种顺序就会被打乱,最终的结果是版本不兼容。
' 所以"命令"和"数据类型"也不能随便删除,确实不需要时,应当将他们设为隐藏。"数据类型"、"类"中的成员也是同样的道理。

' *************************************增加命令的类别*************************************
易库_增加命令类别 (“核心命令”, 真) ' 命令类别增加结束时,第二个参数设为 真。
' *************************************增加全局命令 分类1的命令*************************************
' -----------------------------------------------------------------------------------------------------------------------
命令定义.增加参数 (“待解压文件”, “欲解压的文件的全路径”, #数据类型_文本型, , )
命令定义.增加参数 (“解压到的目录”, “欲解压到的路径”, #数据类型_文本型, , )
命令定义.增加参数 (“解压密码”, “解压所用密码,没有密码就不填”, #数据类型_文本型, , #参数属性_可空)
命令定义.生成命令 (&aoiieaiiu_FL1_H1, 1, “超级解压”, “aoiieaiiu_FL1_H1”, , “解压压缩文件,支持rar,zip,7z等等压缩文件的解压,支持带密码解压”, #数据类型_逻辑型)
' *************************************______________________________________*************************************