Добрый день. Есть такой код на добавление файлов в архив
Код:
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" с её содержимым.