Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Размер файла   Найти похожие ветки 

 
kalic nord   (2007-03-05 20:38) [0]

Вопрос думаю простой: как с точностью до байта узнать размер любого файла?


 
trubin ©   (2007-03-05 21:21) [1]

GetFileSize


 
Джо ©   (2007-03-05 21:22) [2]

Или вот примерно так для файлов > 4 Гб.

function GetFileSizeInt64 (AFileName: string): Int64;
var
 Sr: TSearchRec;
begin
 if FindFirst(AFileName,faAnyFile,Sr) = 0 then
 begin
   Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow;
   FindClose(Sr);
 end
 else
   Result := -1
end;



Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.075 c
4-1163717621
Dmitry_177
2006-11-17 01:53
2007.04.01
Часы на API


2-1173102470
Чайник
2007-03-05 16:47
2007.04.01
Максимальный размер статического массива


3-1168518177
zdm
2007-01-11 15:22
2007.04.01
проблема с IBExpert


8-1154176268
DLag
2006-07-29 16:31
2007.04.01
Захват картинки с окна через DirectX


2-1173773830
Nec
2007-03-13 11:17
2007.04.01
Алгоритм поиска