Zip erstellen über Shell API

[MarioL]

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