|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Добавить папку в архив через TZipFile
Добрый день. Есть такой код на добавление файлов в архив
Код:
var Zip: TZipFile; begin Zip := TZipFile.Create; Zip.UTF8Support := true; Zip.ZipDirectoryContents('Архив.zip', ExtractFilePath(Application.ExeName) + 'data'); Zip.Close; Zip.Free; end; При таком выполнении добавляются все папки и файлы которые находятся внутри папки "data" Но как можно добавить саму папку "data" включая её содержимое? Что бы при открытии архива там лежала "data" с её содержимым. |