Текущий архив: 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