Добавления файлов в компоненте vclzippro версии 3.10

03.11.2011
1
2
3
4
5
6
7
8
9
10
11
  sPath:= '...';                             // Путь до рабочей папки

  vclzp1.RootDir:= sPath + '/01/';           // Где
  vclzp1.FilesList.Add('*.*');               // Что
  vclzp1.ZipName:=  sPath + '/02/test.zip';  // Куда

  vclzp1.StorePaths:=True;                   // сохранение полных путей
  vclzp1.RelativePaths:= True;               // Не включать в сохраняемые пути RootDir
  vclzp1.IncludeHiddenFiles:=True;           // Добавлять в архив скрытые файлы

  vclzp1.Zip;

Категории: Delphi
Яндекс.Метрика