|
发表于 2011-3-29 18:07:21
|
显示全部楼层
天津市天津市
[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文件,解压到的地方) |
|