_______易语言怎么写解压RAR,不是ZIP_______

伤残

易语言怎么写解压rar文件

会的请解决！

q1051278389

1.rar (1.63 KB, 下载次数: 176)

2011-3-29 20:10 上传

点击文件名下载附件 to后面那些是变量

qq285628163

我最近也一直找这个   我跟你一起等结果！！

q1051278389

[e].版本 2

.DLL命令 RAROpenArchive, 整数型, "unrar.dll"
    .参数 Data, RAROpenArchiveData, 传址

.DLL命令 RARCloseArchive, 整数型, "unrar.dll"
    .参数 hArcData, 整数型

.DLL命令 RARReadHeader, 整数型, "unrar.dll"
    .参数 hArcData, 整数型
    .参数 HeaderData, RARHeaderData, 传址

.DLL命令 RARProcessFile, 整数型, "unrar.dll"
    .参数 hArcData, 整数型
    .参数 Operation, 整数型
    .参数 DestPath, 文本型, 传址
    .参数 DestName, 文本型, 传址
.版本 2

.数据类型 RAROpenArchiveData
    .成员 ArcName, 文本型, 传址
    .成员 OpenMode, 整数型
    .成员 OpenResult, 整数型
    .成员 CmtBuf, 文本型, 传址
    .成员 CmtBufSize, 整数型
    .成员 CmtSize, 整数型
    .成员 CmtState, 整数型

.数据类型 RARHeaderData
    .成员 ArcName, 字节型, , "260"
    .成员 FileName, 字节型, , "260"
    .成员 Flags, 整数型
    .成员 PackSize, 整数型
    .成员 UnpSize, 整数型
    .成员 HostOS, 整数型
    .成员 FileCRC, 整数型
    .成员 FileTime, 整数型
    .成员 UnpVer, 整数型
    .成员 Method, 整数型
    .成员 FileAttr, 整数型
    .成员 CmtBuf, 文本型, 传址
    .成员 CmtBufSize, 整数型
    .成员 CmtSize, 整数型
    .成员 CmtState, 整数型
.版本 2

.程序集 窗口程序集1
.程序集变量 lHandle, 整数型
.程序集变量 iStatus, 短整数型
.程序集变量 uRAR, RAROpenArchiveData
.程序集变量 uHeader, RARHeaderData
.程序集变量 sStat, 文本型
.程序集变量 Ret, 整数型

.子程序 UnrarArchive
.参数 ArcName, 文本型
.参数 To, 文本型

uRAR.ArcName ＝ ArcName
uRAR.CmtBuf ＝ 取空白文本 (16384)
uRAR.CmtBufSize ＝ 16384
uRAR.OpenMode ＝ 2
lHandle ＝ RAROpenArchive (uRAR)
iStatus ＝ RARReadHeader (lHandle, uHeader)
.判断循环首 (iStatus ＝ 0)
    sStat ＝ 到文本 (到字节集 (uHeader.FileName))
    RARProcessFile (lHandle, 2, To, “”)
    iStatus ＝ RARReadHeader (lHandle, uHeader)
.判断循环尾 ()
RARCloseArchive (lHandle)
[/e]


调用方法：UnrarArchive(RAR文件,解压到的地方)

q1051278389

那话说的楼主给的少点了{:3_218:}不过还是帮你

伤残

回复 4# q1051278389


怎么调用？

q1051278389

调用方法：UnrarArchive(RAR文件,解压到的地方)

伤残

回复 6# q1051278389


    不行的、 1.rar (1.54 KB, 下载次数: 22)

2011-3-29 19:50 上传

点击文件名下载附件   你修改下吧！

383437370

我拿来看看在说