Dateigröße wird falsch ermittelt

[Patrick]

Hallo,

Ich will mir einfach nur von ein paar Deteien die Größe anzeigen lassen. Dazu verwende ich folgende Funktion:

Delphi-Quellcode:

function GetFileSizeEx(const AFileName: String): Int64;
var  F: TSearchRec;
begin
  Result := 0;
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    try
      Result :=  F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);
    finally
      SysUtils.FindClose(F);
    end;
  end;
end;

Diese habe ich im Internet gefunden und weiter wurde mir versprochen, dass sie nahezu alle Dateigrößen anzeigt, egal wie groß. Eine andere z.B. scheitert bei großen Dateien am LongInteger Datentyp. Diese müsste dann ja funktonieren, da int64.

Die Dateigröße ist noch richtig: 2.032.550.912 //liegt innerhalb des Longinteger Wertebereichs
Bei dieser Dateigröße 5.862.182.912 gibt die Funktion mir diesen Wert 1.567.215.617 zurück //Liegt ausserhalb des Longinteger Wertebereichs, das Ergebnis jedoch innerhalb.

Da stellt sich mir die Frage ob ich int64 so einfach in Strings umwandeln kann!?InttoStr(GetFileSizeEx(Edit1.Text)); Also liegt mein Problem jetzt an der Funktion, die die Größe ermittelt oder an meiner Umwandlungsweise?