Форум: "Начинающим";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
ВнизРазмер файла Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.057 c