ZIP-Archiv mit Fortschrittsanzeige packen

[I love Delphi]

Hallo,
ich möchte in meinem Programm eine ZIP-Datei packen. Da diese jedoch schnell mal 2 GB groß werden kann, wäre eine Fortschrittsanzeige sicherlich sehr nützlich.
Weiß jemand wie man so etwas realisieren kann?
Als Komponente habe ich mir TZip (TZip) rausgesucht, habe es aber noch nie benutzt. Die Komponente zeigt zwar einen Fortschritt an, jedoch weiß ich bzw. mein Programm nicht, wann alles gepackt ist!

Bin für jede Antwort dankbar,
I love Delphi!


///////////////////////////////////

Ok, Problem gelöst. Vll. sollte ich es doch länger als 3 Minuten probieren...

[Luckie]

Wäre schön, wenn du noch deine Lösung hier einstellen würdest.

[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!