Dateigröße als String ausgeben

[Luckie]

Warum werden hier die veralteten Pascal Routinen bemüht?

Delphi-Quellcode:

function GetFileSize(Filename: string): Int64;
var
  fFile             : THandle;
  wfd               : TWIN32FINDDATA;
begin
  result := -1;
  if not FileExists(Filename) then
    exit;
  fFile := FindFirstfile(pchar(Filename), wfd);
  if fFile = INVALID_HANDLE_VALUE then
    exit;
  result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

Oder man nutzt GetFileSizeEx.