GetFileSizeEx gibt falsche werte bei großen Dateien

[hathor]

Kleine Änderung für XE2:

Delphi-Quellcode:

function GetFileSizeEx(const AFileName: string): Int64;
var
  F: TSearchRec;
begin
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    Int64Rec(Result).Lo := F.FindData.nFileSizeLow;
    Int64Rec(Result).Hi := F.FindData.nFileSizeHigh;
    System.SysUtils.FindClose(F);//       <-----------------
  end
  else
    Result := -1;
end;