Delphi Zip Component ZipForge

program comments;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, ZipForge;


var
  Archiver: TZipForge;
  fs: TStream;
  ai: TZFArchiveItem;
begin
  // create ZipForge object
  Archiver := TZipForge.Create(nil);
  try
    // set the archive file name
    Archiver.FileName := 'c:\test.zip';
    // create a new archive file
    Archiver.OpenArchive(fmCreate);
    // set archive file comment
    Archiver.Comment := 'archive comment';
    // add a file
    Archiver.AddFiles('c:\file.txt');
    // change comment
    Archiver.ChangeFilesComment('file.txt', 'file comment');
    // add another file
    Archiver.AddFiles('c:\file1.txt');
    // change comment
    Archiver.ChangeFilesComment('file1.txt', 'file1 comment');

    // close archive
    Archiver.CloseArchive();
    // write comments
    Archiver.OpenArchive;
    if Archiver.FindFirst('*.*', ai) then
      repeat
         WriteLn(ai.FileName + ' ' + ai.Comment);
      until not Archiver.FindNext(ai);
    ReadLn;
  except
     on E: Exception do
     begin
       Writeln('Error: ' + E.Message);
     end;
  end;
  fs.Free;
  Archiver.Free;
end.