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?