Obtener el tamaño de un fichero

Artículo por Club Developers · 31 diciembre 2005

5057 vistas

Para ello vamos a usar la función GetFileSize



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.   function CuantosBytes(Archivo: string): string;
  3.   var 
  4.     FHandle: integer;
  5.   begin 
  6.     FHandle := FileOpen(Archivo, 0);
  7.     try
  8.       Result := FloatToStr(GetFileSize(FHandle, nil));
  9.     finally
  10.       FileClose(FHandle);
  11.     end; 
  12.   end; 
  13. begin 
  14.   Caption := CuantosBytes('c:\windows\notepad.exe');
  15. end;