Hallo!
folgende Funktion benutze ich, wenn ich Größe einer Datei auf der Fesplatte ermitteln möchte:
Delphi-Quellcode:
function CheckFileSize(aFilename: string): integer;
var
f: file of Byte;
size: Longint;
begin
AssignFile(f, aFilename);
Reset(f);
try
size := FileSize(f);
finally
CloseFile(f);
end;
Result := size;
end;
Leider hängt die Funktion, wenn die zu prüfende EXE-Datei gerade läuft. Liegt sicher an AssignFile, weil die Datei bereits "besetzt" ist. Gibt es eine alternative Funktion, die mein Problem löst?