Zip-Archiv entpacken

[hoika]

Hallo,
hm

sowas wie das hier ?

You can get the progress of the current operation like this:
PercentageOfCompletion := Position div Header.UncompressedSize;

(http://docwiki.embarcadero.com/Libra...pProgressEvent)

Und das Flackern kannst du doch selber beinflussen,

Delphi-Quellcode:

if PercentageOfCompletion mod 5 = then
begin
  Position:= PercentageOfCompletion;
end;

Dann wird alle 5% Entpackfortschritt der Balken weitergesetzt.
Da Du ja nur eine Datei entpackst, sollte das ja reichen.

Zitat:

Was unbedingt fehlt sind eine Möglichkeit das Ende des Entpack-Vorgangs zu erkennen

TZipFile.ExtractZipFile('F:\1\Test.zip', ['F:\1\2\', ShowZipProgress);
-> Ende des Entpackens ...


PS:
es gibt noch TZipMaster (benutze ich) und Abbrevia.