Программно распаковать zip архив

[Letnab]

Всем доброго дня. Подскажите как можно распаковать zip архив? Можно ли использовать zipfldr.dll
использую для этого SevenZip.
Вот код

with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile(''+ExtractFilePath(ParamStr(0))+'filename.zip');
     ExtractTo(ExtractFilePath(ParamStr(0)));
   end;

НО! dll нужно подкладывать в каталог с программой. Можно как то обойтись без этого??

[FaTaL]

В последних версиях Delphi есть System.Zip в нём есть необходимые методы.

[Letnab]

в uses прописываю system.z и выдаёт Zlib, просто zip нет.

[Letnab]

Всё. надо было руками прописать...

function UnZipFile(sourceFile, destPath: String): Boolean;
var
 ZipFile: TZipFile;
begin
  ZipFile := TZipFile.Create;
  try
    if ZipFile.IsValid(sourceFile) then begin
       ZipFile.ExtractZipFile(sourceFile, destPath);
       ZipFile.Close;
       result:= true;
    end;
  finally
    ZipFile.Free;
  end;
end;