GetFileSizeEx gibt falsche werte bei großen Dateien

**Cylence**

Hallo,

die Funktion GetFileSizeEx gibt mir bei großen Dateien über 1 Gb absolut falsche werte zurück, bei einem 6Gb File zeigt es 1gb an, ein 5 Gb File zeigt 300 Mb und ein 4 Gb File zeigt 2 Gb. Kennt jemand das Problem? Betriebssystem hier ist windows vista 32

zusammenfalten · markieren

Delphi-Quellcode:

			
function GetFileSizeEx(const AFileName: string): Int64;

var

  F: TSearchRec;

begin

  Result := -1;

  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;

ist daran etwas falsch?

GetFileSizeEx gibt falsche werte bei großen Dateien

GetFileSizeEx gibt falsche werte bei großen Dateien

Forumregeln