[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 файл не найден. Подскажите в чем проблема...

[Alegun]

Обратный слеш пропустил

Код:

OpenFile(ExtractFilePath(ParamStr(0)) + '\test.zip');

[ruivit]

К сожалению пишет так же, не найден zip файл...

[Alegun]

А он точно в папке программы лежит?

[ruivit]

Да он точно лежит в папке с программой.

[Alegun]

Тогда вот так ещё

Код:

(extractFileDir(ParamSTR(0))+'\test.zip')