Ohne groß zu probieren, vielleicht ist es ja tatsächlich so einfach:
...
Delphi-Quellcode:
...
procedure TForm1.ShowZipProgress(Sender: TObject; FileName: string;
Header: TZipHeader; Position: Int64);
begin
// Show your progress here, whatever it needs to do
if (ProgressBar1.Max = 0) then ProgressBar1.Max := Header.UncompressedSize;
ProgressBar1.Position := Position;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressBar1.Max := 0;
TZipFile.ExtractZipFile('F:\1\Test.zip', 'F:\1\2\', ShowZipProgress);
ShowMessage('Fertig!');// <- Ist der hier nicht fertig?
end;
...
Liebe Grüße
Incocnito