[ruivit]

Я заступарелся с разархивированием zip архива. В общем искал я в сети долго подобные темы и толком не нашел не чего.

Правда нашел пример кода вот.

Код:

var
  I : Integer;
begin
  // Получаем список файлов
  with CreateInArchive(CLSID_CFormatZip) do
    begin
      OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[i] then
    end;
  // Распаковывает файлы 
  with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip');
     ExtractTo(ExtractFilePath(ParamStr(0)) + 'test.txt');

   end;
end;

Только к сожалению при испытание он при исполнение дает ошибку что zip файл не найден. Подскажите в чем проблема...