Функция получает размер файла. Размер файла может быть более 2 ГБ.
|
1 2 3 4 5 6 7 8 9 |
var path: string; size: int64; begin path:= 'C:\Windows\notepad.exe'; size:= fileGetSize(path); ShowMessage(IntToStr(size) + ' байт'); end; |
Параметры
path - путь к файлу
Результат
Размер файла в байтах.
Если файл не существует: -1.
|
1 2 3 4 5 6 7 8 9 10 11 |
function fileGetSize(var fileName: string): Int64; var sr : TSearchRec; begin if FindFirst(fileName, faAnyFile, sr ) = 0 then result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) else result := -1; FindClose(sr); end; |
