Главная страница
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.046 c
15-1173096896
Kerk
2007-03-05 15:14
2007.04.01
Федор Бондарчук снимает Обитаемый остров


6-1161425591
Yegorchic
2006-10-21 14:13
2007.04.01
IdHTTP: сколько байт получено/отправлено


3-1168271803
makaronX
2007-01-08 18:56
2007.04.01
вставка даты в Access


15-1173477520
Reaktor
2007-03-10 00:58
2007.04.01
Компьютер тормоз


2-1173464112
А.Брей
2007-03-09 21:15
2007.04.01
Смена шрифта на TPanel