利用seven 7zip的API来进行压缩和解压文件夹

首先下载seven 7zip源码包

http://download.csdn.net/detail/lokeyyang/4748647

将sevenzip.pas和7z.dll 复制到你的工程目录下，将sevenzip.pas加入你的工程

在uses后面加入sevenzip命名空间

然后就可以直接适用seven里面的各种函数了。

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  with CreateInArchive(CLSID_CFormatZip) do
  begin   OpenFile('c:\test.zip');
  ExtractTo('c:\test');
  end;
end;

 

例如这个是Button1按下解压。更多的函数用法，自己到文件包里的ReadMe.htm查看