Wenn es nur um die Größe geht, könnte auch dieser Ansatz erfolgreich sein:
Delphi-Quellcode:
function GetFileSize(
const AFileName:
string): Int64;
var
handle: THandle;
begin
handle := FileCreate(AFileName);
try
Result := FileSeek(
handle, Int64(0), 2);
finally
FileClose(
handle);
end;
end;