ZIP-Archiv mit Fortschrittsanzeige packen

[I love Delphi]

Gerne,
kein Problem!

Mit der genannten nicht-visuellen Komponente TZip lässt sich das sehr einfach realisieren.
Folgenden Code braucht man nun zum erstellen des Archives:

Delphi-Quellcode:

Zip.Filename:='Test.zip';
Zip.FileSpecList:=TStrings; //Zum Beispiel OpenDialog.Files
Zip.Add(); //Gibt die Anzahl der gepackten Dateien zurück

Die Komponente selbst hat eine Eigenschaft, mit der sich eine Fortschrittsanzeige einblenden lässt. Anders geht es auch nicht, es gibt zwar eine ProgressEvent, dieses bezieht sich jedoch auf jede einzelne Datei. Wenn der "Packvorgang" beendet ist wird das "...EndBatchEvent" ausgelöst.

Grüße,
I love Delphi!