Eine "Diese Datei zippen abbrechen"-Funktion wäre zwar schön, aber der Vorschlag von Pustekuchen reicht als Notlösung auch. Ich hätte nur ehrlich gesagt so etwas selbstverständliches wie ein Abbrechen erwartet....
Na ja, meistens ist das liebe Geld dran schuld. Eine vernünftige ZIP-Komponente kauft man einmal und dann nie wieder. ZipForge zum Beispiel kann einen ZIP-Vorgang abbrechen.
Delphi-Quellcode:
procedure TForm1.ZipperOverallProgress(Sender: TObject;
Progress: Double; Operation: TZFProcessOperation;
ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
...
end;
So nebenbei hat du auch in der ZIP-File-Größe noch Luft nach oben.