求DELPHI中的解rar压缩文件包的代码，希望不是直接调用EXE可执行文件，可以在没有安装RAR的时候也可以解压。

[winnerxcf]

求DELPHI中的解rar压缩文件包的代码，希望不是直接调用EXE可执行文件，可以在没有安装RAR的时候也可以解压。
下面是一个网上搜索到的。
但是里面的参数实在是不好参悟啊。谁有好的发下，谢谢
function jieyabao(rarpath, typer, openpath, jiepath: string):integer;
//(1) 功 能 ： 解压数据包rar文件
//(2) 参 数 ：
//(3) 返回值 ： 0 成功 1错误
//(4) 作成者 ： 撖牛牛
//
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
str1:pchar;
begin
FillChar(SUInfo, SizeOf(SUInfo), 0);
with SUInfo do
begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow := SW_SHOW;
end;
str1:=pchar(rarpath+ typer+ openpath +jiepath);
if CreateProcess(nil,str1, nil, nil, False,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,nil, SUInfo, ProcInfo) then
begin // pchar(rarpath+ typer+ openpath +jiepath)
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
result:=0;
end else
begin
result:=1;
end;

end;

[僵哥]

可以到winrar的官网上下载unrar的source(C代码)，然后转为Delphi代码。

[火龙岛主]

用这个看看
Delphi component wrapper for UnRar.dll http://www.rarlab.com/rar/TDFUnRar.zip

[bdmh]

省事的话,可以考虑第三方,有的支持rar

[oushengfen]

如果光是解压，倒有官方的DLL，UnRar.dll就提供了。

[tjg5202]

考虑第3方控件吧。。。挺好用的。。。

[laihongbo524]

UnRAR Delphi component Delphi component wrapper for UnRar.dll by Dirk Frischalowski.
http://www.rarlab.com/rar/TDFUnRar.zip

UnRAR Delphi component Delphi component wrapper for UnRar.dll by Philippe Wechsler.
http://www.rarlab.com/rar/RARComponent_12.zip

[winnerxcf]

有具体的代码？
上述的网站有些我打不开

[不得闲]

压缩控件，有很多，楼主Google一下

[ajiwuweibin]

我当初也是找很久找不到，又不想用三方控件，就这样一直挂着了...

[frankie_24]

第三方软件应该有很多，可以考虑考虑！！

[jozosoft]

UNRAR是个不错的东西，楼主没必要推倒重来。
除非你是要单独作一个这样的商品软件。

[genispan]

找个ZIPTV控件 一切OK 里面有DEMO

解压rar需要一个winrar.dll down一个到源码目录就行了

[genispan]

或者调用winrar.exe的命令行 如：
winrar.exe e -y C:\test.rar d:\ 解压test.rar到D盘

[winnerxcf]

准备工作
下载winrar提供的动态链接库unrar.dll
http://www.rarlab.com/rar/UnRARDLL.exe（需解压） 这里解压到那里？？
下载为delphi提供的组件并安装
http://www.rarlab.com/rar/TDFUnRar.zip

下载完了编译报错：
could not create output file c:\program files\borland\delphi6\....
谁知道什么情况？

在界面上添加安装的组件DFUnRar1
解压的代码为

with DFUnRar1 do
begin
Directory := ExtractFilePath(Application.ExeName); //解压的目标目录
FileName := 'aa.rar'; //你需要解压的文件名，如果不放在相同目录下，需要设置全路径
Mode := DFRAR_EXTRACT;
OverrideEvent := OR_ALWAYS;
//Password := '文件的密码';
Extract;
end;

以上只是提供简单的说明，
事实上能做到更多，大家自己看demo吧，就在上面第二个文件中

[yc_8301]

rar应该提供了解压的dll吧，直接使用dll中的导出函数即可。。
LZ可以去官网看看

[Godfear]

楼主解决了没有？感兴趣！