Я пытаюсь создать zip-файл с Delphi Tokyo, используя команду ZipDirectoryContents, которая имеет 4 параметра. Они есть
ZipDirectoryContents(const ZipFileName: string; const Path: string;
Compression: TZipCompression = zcDeflate;
ZipProgress: TZipProgressEvent = nil); static;
Есть ли кто-нибудь, кто может сказать мне, как использовать эти параметры, особенно TZipProgressEvent, чтобы показать ход выполнения zip-файла при добавлении файлов из каталога. Спасибо