Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Корректное колесико мыши
   Категория: Приложение
  К-во рабочих дней в месяце
   Категория: Математика
  Перегенерировать все индексы Dbase
   Категория: Базы данных
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Подсчет времени какого-либо события
   Категория: Математика
  Последний день месяца
   Категория: Базы данных
  Cколько файлов есть в определённой папке
   Категория: Файловая система
  Быстрое копирование файлов
   Категория: Файловая система

Delphi - База Знаний: Упаковка ZIPTV

  << Вернуться к Содержанию  

Var FilesCompressed: Integer;
begin
В В  If FileExists('c:Arhiv_parArhiv.zip') Then
В В В В В В If MessageDlg(
В В В В В В В В  'Архив существует... Перезаписать?',
В В В В В В В В  mtConfirmation,
В В В В В В В В  [mbYes, mbNo],
В В В В В В В В  0) = mrYes Then
В В В В В В В В  DeleteFile('c:Arhiv_parArhiv.zip')
В В В В В В Else
В В В В В В В В  Exit;

Zip1.ArchiveFile := 'c:Arhiv_parArhiv.zip';
Zip1.FileSpec.Add(GetPhNameByAlias('sklad')+'*.db');
FilesCompressed := Zip1.Compress();
ShowMessage('Упаковано файлов: ' + IntToStr(FilesCompressed));
end;
  << Вернуться к Содержанию