Спасибо,пока посмотрел пример с SciZipFile, но вылазит ошибка при извлечении папки
Код:
ZipFileMem := TZipFile.Create ;
ZipFileMem.LoadFromFile('1.zip');
for i := 0 to ZipFileMem.Count -1
do begin
memo1.lines.Add(ZipFileMem.Name[i]) ;
ZipFileMem.SaveToFile('C:\1\'+ZipFileMem.Name[i]);
end;
ZipFileMem.Free;
Сейчас гляну второй компонент