Показать сообщение отдельно
  #3  
Старый 14.12.2014, 17:01
sanya920 sanya920 вне форума
Прохожий
 
Регистрация: 22.07.2011
Сообщения: 13
Репутация: 10
По умолчанию

Спасибо,пока посмотрел пример с 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;
Сейчас гляну второй компонент
Ответить с цитированием