Mit etwas mehr Eigeninitiative hättest du dein Problem selbst innerhalb kurzer Zeit lösen können.
Würdest du das bitte unterlassen? Das ist nicht hilfreich und du weißt doch gar nicht, wieviel Eigeninitiative ich schon reingesteckt habe!
Gefunden in 10 Sekunden mit Google mit "ShowZipProgress delphi".
Mehr ist es auch nicht wert, denn es funktioniert nicht! Zudem finde ich es auch herablassend, wie du mit mir sprichst. Irgendwer hat dir wohl weh getan, dass du so zornig bist. Aber ich war das nicht!
TZipFile.ExtractZipFile('F:\1\Test.zip', ['F:\1\2\', ShowZipProgress);
-> Ende des Entpackens ...
Ohne groß zu probieren, vielleicht ist es ja tatsächlich so einfach:
Delphi-Quellcode:
TZipFile.ExtractZipFile('F:\1\Test.zip', 'F:\1\2\', ShowZipProgress);
ShowMessage('Fertig!');// <- Ist der hier nicht fertig?
Btw. da Befehle nacheinander abgearbeitet werden, ist das Entpacken beendet, wenn
TZipFile.ExtractZipFile('F:\1\Test.zip', 'F:\1\2\', ShowZipProgress);
ausgeführt wurde. Also da nach. Es ist also eindeutig klar, wann das Entpacken fertig ist.
Da war ich wohl blind, denn ihr habt alle Recht! 1 Problem gelöst! Vielen Dank!
