2+ Datein bzw. ganzen Ordner packen.

[hathor]

Ja, ab XE2 ist es einfach:

http://stackoverflow.com/questions/1...r-using-delphi
http://delphiblog.twodesk.com/native...-in-delphi-xe2

If you are using Delphi X2, just use TZipFile from System.Zip:

Delphi-Quellcode:

//To Zip a folder, use:

TZipFile.ZipDirectoryContents('ZipFile.zip', 'C:\Zip\this\right\now');

//To Zip files, use:

Zip := TZipFile.Create;
try
  Zip.Open('ZipFile.zip', zmWrite);

  Zip.Add('FileToBeZipped.txt')
  Zip.Add('ThisWillBeCompressedAgainForSureAndBecomeSmaller.zip')
finally
  Zip.Free;
end