[Overview][Constants][Types][Classes][Index] |
Zips all files in object and writes zip to disk
Source position: zipper.pp line 430
public procedure TZipper.ZipAllFiles; virtual; |
This procedure zips up all files in the TZipper object and writes the resulting zip file to disk.
An example of using this procedure:
uses Zipper; var Zipper: TZipper; begin try Zipper := TZipper.Create; Zipper.FileName := ParamStr(1); //Use the first parameter on the command line as zip file name for I := 2 to ParamCount do //Use the other arguments on the command line as files to be zipped Zipper.Entries.AddFileEntry(ParamStr(I), ParamStr(I)); Zipper.ZipAllFiles; finally Zipper.Free; end; end.