Ordner kopieren - Wie erkenne ich, wenn er fertig ist?

[Trille]

Hallo allerseits,
ich habe eine Funktion geschrieben, die einen Ordner kopiert.

Delphi-Quellcode:

// -------------------------------------------------------------------------------------------- 
// Kopieren eines Verzeichnisses
//
function CopyDirectory(sourceDir: string, destinationDir: string): boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.wFunc  := FO_COPY;
  fos.fFlags := FOF_SIMPLEPROGRESS OR FOF_NOCONFIRMATION;
  fos.pFrom  := PChar(sourceDir + #0);
  fos.pTo    := PChar(destinationDir)
 
  Result := (0 = ShFileOperation(fos));
end;

Das Problem daran ist, dass die zu kopierende Datenmenge etwas größer ist und ich direkt nach dem Kopieren Änderungen an einigen Dateien machen muss. Nur leider (in meinem Fall) blockiert die Methode nicht und alles läuft ganz normal weiter. Wie bekomme ich raus, wann das Kopieren beendet ist?

Ich habe keine Lust, jede Sekunde ein paar hunderttausend Dateien zu zählen und gucken, ob schon alles da ist, zumal da auch nicht sichergestellt ist, dass die letzte Datei schon vollständig ist.