Как узнать размер файла?

@arafikov · Регистрация: 17.01.2011

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как узнать размер файла (независимо - Win98 или WinXP, Fat32 или NTFS)?

@palva · 27.10.2006, 14:50

Можно узнать многими способами. Проще всего так:

Код

{$APPTYPE CONSOLE}
uses SysUtils;
var
  f: File;
  l: Integer;
begin
  AssignFile(f, 'TestLib.exe');
  FileMode := 0;
  Reset(f, 1);
  l := FileSize(f);
  WriteLn(l);
end.

или так:

Код

{$APPTYPE CONSOLE}
uses SysUtils;
var
  sr: TSearchRec;
  l: Integer;
begin
if FindFirst('TestLib.exe', faAnyFile, sr) = 0 then
  l := sr.Size;
  WriteLn(l);
end.

Только в современных операционных системах возможны файлы размером больше чем $FFFFFFFF. Для того чтобы извлечь такой размер потребуется переменная типа Int64 и вызов функций API CreateFile, GetFileSize CloseHandle.

@arafikov 0 / 0 / 0 Регистрация: 17.01.2011 Сообщений: 30
		1
	Как узнать размер файла? 27.10.2006, 13:31. Показов 3352. Ответов 1 Метки нет (Все метки) Подскажите, пожалуйста, как узнать размер файла (независимо - Win98 или WinXP, Fat32 или NTFS)? 0

@palva 4240 / 2937 / 687 Регистрация: 08.06.2007 Сообщений: 9,816 Записей в блоге: 4
	27.10.2006, 14:50	2
	Можно узнать многими способами. Проще всего так: Код {$APPTYPE CONSOLE} uses SysUtils; var f: File; l: Integer; begin AssignFile(f, 'TestLib.exe'); FileMode := 0; Reset(f, 1); l := FileSize(f); WriteLn(l); end. или так: Код {$APPTYPE CONSOLE} uses SysUtils; var sr: TSearchRec; l: Integer; begin if FindFirst('TestLib.exe', faAnyFile, sr) = 0 then l := sr.Size; WriteLn(l); end. Только в современных операционных системах возможны файлы размером больше чем $FFFFFFFF. Для того чтобы извлечь такой размер потребуется переменная типа Int64 и вызов функций API CreateFile, GetFileSize CloseHandle. 0

Опции темы