TZipper

type TZipper = class(TObject)

public

  constructor Create;

  destructor Destroy; override;

  procedure ZipAllFiles; virtual;

Zips all files in object and writes zip to disk

  procedure SaveToFile();

  procedure SaveToStream();

  procedure ZipFile();

  procedure ZipFiles();

  class procedure Zip();

  procedure Clear;

  procedure Terminate;

  property BufferSize: LongWord; [rw]

  property OnPercent: Integer; [rw]

  property OnProgress: TProgressEvent; [rw]

  property OnStartFile: TOnStartFileEvent; [rw]

  property OnEndFile: TOnEndOfFileEvent; [rw]

  property FileName: RawByteString; [rw]

  property FileComment: string; [rw]

  property Files: TStrings; [r] deprecated ;

  property InMemSize: Int64; [rw]

  property Entries: TZipFileEntries; [rw]

  property Terminated: Boolean; [r]

  property UseLanguageEncoding: Boolean; [rw]

end;

TZipper

TObject