Главная страница
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.064 c
2-1173861867
Нуб
2007-03-14 11:44
2007.04.01
Ручная ли это процедура иль ее создал кто ?


15-1173445639
oldman
2007-03-09 16:07
2007.04.01
Как хорошая идея становиться кривой...


1-1170698259
не забуду мать родную
2007-02-05 20:57
2007.04.01
GetClass


15-1173280682
Канадец
2007-03-07 18:18
2007.04.01
Talking to Americans on the streets


5-1150709537
Shikaka
2006-06-19 13:32
2007.04.01
не могу зарегистрировать компонент карта(MAPxовский) в DT