Einfrieren der Anwendung beim Löschen und Kopiern.

[Mohadrim]

Diese Funktion hier funktioniert zwar super aber wenn ich 2GB Dateien und Unterverzeichnisse löschen, dann hängt die Anwendung solange reglos rum.

Delphi-Quellcode:

function DeleteFiles(const AFile: string): boolean;
var
  sh: SHFileOpStruct;
begin
  ZeroMemory(@sh, SizeOf(sh));
  with sh do
  begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(AFile +#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  result := SHFileOperation(sh) = 0;
end;

Das gleiche beim Kopieren von Dateien ca 2GB groß mit dem Befehl

CopyFile(AltesVerzeichnis, NeuesVerzeichnis,true); Weiß jemand Rat?