ShellBrowser Delphi Components Documentation
|
The following example shows how to append multiple files to a ZIP file:
var Files: IItemIdListCollection; ZipFile: IItemIdList; begin Files := TItemIdListCollection.Create; Files.Add('C:UsersPublicMusicsample.mp3'); Files.Add('C:UsersPublicMusicsample2.mp3'); ZipFile := TJamItemIdList.Create('C:Zipfile.zip'); TJamFileOperation.Zip(Files, ZipFile); end;