Главная страница
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.029 c
3-1168459764
Kley
2007-01-10 23:09
2007.04.01
Поле в отчете


2-1173223246
Gelikon
2007-03-07 02:20
2007.04.01
Как заставить Panel мигать через определённый интервал времени!!!


1-1170449595
Officeman
2007-02-02 23:53
2007.04.01
Аналог TListView с доп.функ


9-1145972892
KiberKot
2006-04-25 17:48
2007.04.01
Нажатие двух клавиш


6-1160913671
Max.66RUS
2006-10-15 16:01
2007.04.01
Как реализовать работу почтовой программы через прокси...