como saber el tamaño de un fichero

[Neftali [Germán.Estévez]]

Ok, en este caso hay que calcularlo "por partes"; Modifica el código y utiliza el siguiente:

Código Delphi [-]
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;
begin
  // ini
  Size := 0;
  // Handle del fichero
  hdl := FindFirstFile(PChar(edtFileSize1.text), FileData);
  // Correcto?
  if (hdl <> INVALID_HANDLE_VALUE) then begin
    Windows.FindClose(hdl);
    Int64Rec(Size).Lo := FileData.nFileSizeLow;
    Int64Rec(Size).Hi := FileData.nFileSizeHigh;
  end;
  // Convertir
  ConvertFileSizes(Size);

Si lo pruebas ahora con un fichero de grande (en mi caso con uno de más de 7 gb) obtengo esto: