Obtener el tamaño de un archivo en bytes usando Delphi

los Tamaño del archivo La función devuelve el tamaño de un archivo, en bytes, un resultado útil para ciertas aplicaciones de administración de archivos dentro de un programa Delphi.

Obtener tamaño de archivo

La función FileSize devuelve el tamaño de un archivo en bytes; la función devuelve -1 si no se encontró el archivo.

// devuelve el tamaño del archivo en bytes o -1 si no se encuentra.
función FileSize (fileName: wideString): Int64;
var
sr: TSearchRec;
empezar
Si FindFirst (fileName, faAnyFile, sr) = 0 luego
resultado: = Int64 (sr.FindData.nFileSizeHigh) shl Int64 (32) + Int64 (sr.FindData.nFileSizeLow)
más
resultado: = -1;
FindClose (sr);
final;

Cuando tenga el tamaño de un archivo en bytes, es posible que desee formatear el tamaño para mostrar (Kb, Mb, Gb) para ayudar a sus usuarios finales a comprender los datos sin tener que convertir unidades.