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吧,就在上面第二个文件中