Zip-Archiv entpacken

[Incocnito]

Ohne groß zu probieren, vielleicht ist es ja tatsächlich so einfach:

Zitat von Guido Eisenbeis:

...

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