Показать сообщение отдельно
  #1  
Старый 11.12.2010, 20:57
Kobelev Kobelev вне форума
Прохожий
 
Регистрация: 03.12.2010
Сообщения: 12
Репутация: 10
По умолчанию Работа с ZIP архивом (компонент ZipForge)

Добрый вечер) Использую компонент ZipForge. Подскажите как мне извлечь из ZIP архива файлы с определенным расширением? Допустим в архиве много файлов с разным расширением, а мне нужны только с расширением bmp, jpg и png. Могу поставить фильтр только на одно расширение.

Код:
procedure TForm1.ExtractClick(Sender: TObject);
begin
 ZipForge1.FileName:='c:\file.zip';
 ZipForge1.OpenArchive;
 ZipForge1.BaseDir := 'C:\Pict\';
 ZipForge1.ExtractFiles('*.bmp');  // как тут можно добавить еще пару расширений?
  ZipForge1.CloseArchive;
end;
Ответить с цитированием