delphi zipforge 用法

Delphi ZipForge 是一个功能强大的压缩库，您可以使用它来创建、提取和管理 ZIP 文件。下面是一些常用的用法示例：

1. 创建 ZIP 文件：

```delphi var

Zip: TZipForge; begin

Zip := TZipForge.Create(nil); try

Zip.FileName := 'C:\\path\o\\myzip.zip'; Zip.OpenArchive(fmCreate); // 添加文件到压缩包

Zip.AddFiles('C:\\path\o\\file1.txt'); Zip.AddFiles('C:\\path\o\\file2.txt'); finally

Zip.CloseArchive(); Zip.Free(); end; end; ```

2. 提取 ZIP 文件中的文件：

```delphi var

Zip: TZipForge;

begin

Zip := TZipForge.Create(nil); try

Zip.FileName := 'C:\\path\o\\myzip.zip'; Zip.OpenArchive(fmOpenRead); // 提取所有文件到指定目录

Zip.BaseDir := 'C:\\path\o\\extract\\'; Zip.ExtractFiles('*.*'); finally

Zip.CloseArchive(); Zip.Free(); end; end; ```

3. 压缩文件夹到 ZIP 文件：

```delphi var

Zip: TZipForge; begin

Zip := TZipForge.Create(nil); try

Zip.FileName := 'C:\\path\o\\myzip.zip'; Zip.OpenArchive(fmCreate); // 压缩文件夹及其内容

Zip.AddFiles('C:\\path\o\\myfolder\\', '*.*', faDirectory, True); finally

Zip.CloseArchive(); Zip.Free();

end; end; ```

这些只是一些基本的用法示例，ZipForge 还提供了许多其他功能，例如密码保护、分卷压缩、压缩级别设置等。您可以参考官方文档或示例代码以获得更详细的信息和使用说明。