如何使用Delphi将多个文件压缩到一个存档中

uses
  AbArcTyp, AbZipOut, AbZipKit, AbBase, AbMeter;

procedure CompressFiles(const aZipFileName: string; const aFiles: array of string);
var
  ZipArchive: TAbZipArchive;
  ZipStream: TAbZipOutputStream;
  i: Integer;
begin
  ZipArchive := TAbZipArchive.Create;
  try
    ZipStream := TAbZipOutputStream.Create(ZipArchive);
    try
      ZipStream.FileName := aZipFileName;
      for i := 0 to Length(aFiles) - 1 do
      begin
        ZipStream.Open;
        ZipStream.AddFiles(aFiles[i], 0);
        ZipStream.Close;
      end;
    finally
      ZipStream.Free;
    end;
  finally
    ZipArchive.Free;
  end;
end;

const
  ZipFileName = 'example.zip';
  FilesToCompress: array of string = ['file1.txt', 'file2.txt', 'file3.txt'];
begin
  CompressFiles(ZipFileName, FilesToCompress);
end;