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.