Hallo!
Vielleicht dann doch die Stream-Variante? Die Datei einfach mit TFileStream öffnen, die Eigenschaft Size gibt dann direkt die Dateigröße in Byte an. Fertig.
Code:
function GetFileSize(Filename: TFilename): Int64;
begin
with TFileStream.Create(Filename, fmOpenRead) do
begin
result := size;
Free;
end;
end;
Der Code braucht natürlich noch ein paar Sicherheitsvorkehrungen...
Denny