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

Delphi-Quellcode:

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. :stupid:

Zitat:

Zitat von FOF_SILENT

Do not display a progress dialog box.

[Mohadrim]

Ok danke ich teste mal einwenig rum.