Hallo Bommel, vielleicht nicht die eleganteste Lösung, aber damit funktioniert es auch beim ersten Aufruf zügig
:
Delphi-Quellcode:
procedure TShellZip.ZipFolder(const sourcefolder: WideString);
var
srcfldr, destfldr: OleVariant;
shellfldritems: Olevariant;
numt: integer;
begin
if not FileExists(zipfile) then
begin
CreateEmptyZip;
end;
numt := NumProcessThreads;
if numt = 1 then numt := 2;
// (beim ersten Aufruf numt auf 2 setzen)
...
MfG MarioL