Grüezi zusammen.
Kleine Frage an euch.
Ich entpacke zip Dateien mit der integrierten system.zip Funktion.
Delphi-Quellcode:
function UnZipFile(ArchiveName, Path: String): boolean;
var Zip:TZipFile;
begin
Zip:=TZipFile.Create;
try
zip.Open(ArchiveName,zmRead);
zip.ExtractAll(Path);
zip.Close;
result:=true;
except
result:=false;
end;
zip.Free;
end;
Mein Problem ist jedoch das beim entpacken das ganze Programm einfriert bis es fertig entpackt ist.
Ich habe bereits etwas herum getestet mit:
application.ProcessMessages;
und auch mit der Doublebuffered Funktion für Forms/Panels.
Jedoch leider ohne Erfolg. Weiss jemand von euch wie man das "einfach" hinkriegen könnte?