*.rar文件用WinRAR软件解压,在Delphi中要实现这一功能,步骤如下:
1.下载为delphi提供的组件
http://www.rarlab.com/rar/TDFUnRar.zip
解压后在src文件夹中有DFUnRar.pas和untUnRar.pas
2.创建dpk工程,加入以上两个文件DFUnRar.pas和untUnRar.pas
编译并安装组件,完成后会在组件栏中有组件DFUnRar1
3.添加组件DFUnRar1到Form1上,在需要解压的地方加入以下代码
with DFUnRar1 do
begin
Directory := ExtractFilePath(Application.ExeName); //解压的目标目录
FileName := 'abc.rar'; //你需要解压的文件名,如果不放在相同目录下,需要设置全路径
Mode := DFRAR_EXTRACT;
OverrideEvent := OR_ALWAYS;
//Password := '文件的密码';
Extract;
end;
就这样,简单的解压功能就实现了。事实上DFUnRar1能做的更多,大家可以参考demo文件夹中的源代码。