Hallo,
ich kenne TZipFile ja nicht, aber
Bekommst Du die Anzahl der Dateien raus ?
Dann kannst Du ja Gesamt-Dateigrößen über
property FileInfo[Index: Integer]: TZipHeader
ermitteln.
Ich habe aber keine FileCount gefunden, muss es aber doch geben, oder ?
Danach kannst Du im ProgressEvent ja dann komplett hochzählen lassen,
also eine eigene Variable, die mit Hilfe von Position hochzählt.
PS:
laut dem hier gibt es FileCount
http://delphiblog.twodesk.com/native...-in-delphi-xe2
property FileCount: Integer; //total number of files in the zip file