kenne die
unit nicht wirklich, aber es sollte so aussehen. nicht vergessen sevenzip.pas einzubinden.
Delphi-Quellcode:
uses ..., sevenzip;
procedure TForm1.Button1Click(Sender: TObject);
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
OpenFile('c:\test.zip');
ExtractTo('c:\test');
end;
end;