Работа с Zip архивами.
Класс TZipFile решает основные задачи.
// Распаковка ZipFile := TZipFile.Create; Try ZipFile.Open('Имя архива',zmRead); ZipFile.Extract('Файл в ахиве', 'Куда распаковать'); ZipFile.Close; Finally ZipFile.Free; End;
// Упаковка ZipFile := TZipFile.Create; Try ZipFile.Open('Имя архива', zmWrite); ZipFile.Add('Файл на диске', 'Имя в архиве', zcDeflate); ZipFile.Close; Finally ZipFile.Free; End;