[sanya920]

Спасибо,пока посмотрел пример с 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;

Сейчас гляну второй компонент