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?

[jaenicke]

Genau für so etwas sind Threads geradezu prädestiniert.

Erstelle am besten eine neue Klasse von TThread abgeleitet und packe den Code in dessen Execute-Methode.

[himitsu]

Die Funktion kehrt erst zurück, wenn alles fertig ist und du hast der Funktion auch noch explizit gesagt, daß sie auf nichts reagieren und keinen Fortschritsdialog anzeigen soll.

Zitat von FOF_SILENT:

Do not display a progress dialog box.

[Mohadrim]

Ok danke ich teste mal einwenig rum.