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