| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер файла
kalic nord © (2007-03-05 20:38:00)Вопрос думаю простой: как с точностью до байта узнать размер любого файла?
Джо (2007-03-05 21:22:00) [1]Или вот примерно так для файлов > 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;
trubin (2007-03-05 21:21:00) [2]GetFileSize
| |
