用delphi实现rar文件的解压的方法

http://blog.csdn.net/ad_home/article/details/2818936

准备工作

下载winrar提供的动态链接库unrar.dll

http://www.rarlab.com/rar/UnRARDLL.exe（需解压）

下载为delphi提供的组件并安装

http://www.rarlab.com/rar/TDFUnRar.zip

在界面上添加安装的组件DFUnRar1

解压的代码为

with DFUnRar1 do

begin

Directory := ExtractFilePath(Application.ExeName); //解压的目标目录

FileName := 'aa.rar'; //你需要解压的文件名，如果不放在相同目录下，需要设置全路径

Mode := DFRAR_EXTRACT;

OverrideEvent := OR_ALWAYS;

//Password := '文件的密码';

Extract;

end;

以上只是提供简单的说明，

事实上能做到更多，大家自己看demo吧，就在上面第二个文件中