Программирование Delphi

Когда Вы в своих приложениях Delphi работаете с файлами и папками, иногда бывает нужно узнать размер файла (в байтах). Для того, чтобы получить размер файла, используйте функцию FileSize, которая возвращает размер файла в байтах, или -1, если файл не был найден.

// возвращает размер файла в байтах
 // или -1, если файл не найден
 function FileSize(fileName : wideString) : Int64;
 var
   sr : TSearchRec;
 begin
   if FindFirst(fileName, faAnyFile, sr ) = 0 then
      result := Int64(sr.FindData.nFileSizeHigh)
        shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
   else
      result := -1;

   FindClose(sr) ;
 end;

// Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= IntToStr(Filesize('C:\Windows\Notepad.exe'));
end;