易语言调用外部程序如何调用WINRAR压缩和解压文件！

但可行

觉得拷贝无聊者请忽略

'代码定义了两个子程序一个解压一个压缩

.版本

2

.子程序

压缩_WinRAR_压缩,

文本型,

公开,

本命令需要安装WinRAR

.参数

被压缩的文件,

文本型,

数组,

文件和文件夹都可以

.参数

压缩到文件,

文本型,

,

全路径和rar\zip文件名

.参数

WinRAR地址,

文本型,

可空,

如果注册表内没有WinRAR的信息。但是安装了的。就需要写

例：C:\Program

Files\WinRAR\WinRAR.exe

.局部变量

易团俊,

整数型

.局部变量

被压缩信息,

文本型

易团俊

＝

0

被压缩信息

＝

“”

.如果真

(是否为空

(WinRAR地址))

WinRAR地址

＝

取文本注册项

(#本地机器,

“SOFTWARE\Microsoft\Windows\CurrentVersion\App

Paths\WinRAR.exe\”,

)

.如果真结束

.如果真

(WinRAR地址

＝

“”)

返回

(“找不到WinRAR目录”)

.如果真结束

.计次循环首

(取数组成员数

(被压缩的文件),

易团俊)

被压缩信息

＝

被压缩信息

＋

“

”

＋

被压缩的文件

[易团俊]

.计次循环尾

()

运行

(WinRAR地址

＋

“

a

-ep1

-scul

-r0

-iext

”

＋

压缩到文件

＋

被压缩信息,

真,

)

返回

(“”)

.子程序

压缩_WinRAR_解压,

文本型,

公开,

本命令需要安装WinRAR

.参数

压缩文件,

文本型,

,

全路径和rar\zip文件名

.参数

解压到文件夹,

文本型,

,

文件夹全路径

.参数

WinRAR地址,

文本型,

可空,

如果注册表内没有WinRAR的信息。但是安装了的。就需要写

例：C:\Program

Files\WinRAR\WinRAR.exe

.如果真

(是否为空

(WinRAR地址))

WinRAR地址

＝

取文本注册项

(#本地机器,

“SOFTWARE\Microsoft\Windows\CurrentVersion\App

Paths\WinRAR.exe\”,

)

.如果真结束

.如果真

(WinRAR地址

＝

“”)

返回

(“找不到WinRAR目录”)

.如果真结束

运行

(WinRAR地址

＋

“

x

-iext

-ow

-er

”

＋

压缩文件

＋

“

”

＋

解压到文件夹,

真,

)

返回

(“”)

.支持库 eCompress

.子程序 _按钮1_被单击

编辑框1.内容 ＝ 到文本 (解压并运行程序 (取运行目录 () ＋ “\1.zip”, ))

.子程序 解压并运行程序, 整数型, , 成功返回1

.参数 文件路径, 文本型, , 需要解压的文件路径

.参数 程序名, 文本型, 可空

.局部变量 字节集, 字节集

标签1.标题 ＝ 文件路径

.如果真 (文件是否存在 (文件路径) 且 取文本右边 (文件路径, 4) ＝ “.zip”) ' 效验文件是否有效，且文件后撤名为 “zip”

.如果真 (是否为空 (程序名)) ' 如果程序名为空

程序名 ＝ “1.exe”

.如果真结束

.如果真 (ZIP.解压 (文件路径, 取运行目录 () ＋ “\临时\”) ＝ 1)

.如果真 (运行 (取运行目录 () ＋ “\临时\” ＋ 程序名, 假, ))

返回 (1)

.如果真结束

返回 (-3) ' 运行失败

.如果真结束

返回 (-2) ' 解压失败

.如果真结束

返回 (-1) ' 返回-1表示文件不存在 或者不是ZIP文件