Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 688

•  TDictionary Custom Sort  6 693

•  Fast Watermark Sources  6 472

•  3D Designer  9 408

•  Sik Screen Capture  6 813

•  Patch Maker  7 230

•  Айболит (remote control)  7 208

•  ListBox Drag & Drop  6 053

•  Доска для игры Реверси  97 696

•  Графические эффекты  7 380

•  Рисование по маске  6 684

•  Перетаскивание изображений  5 535

•  Canvas Drawing  5 923

•  Рисование Луны  5 676

•  Поворот изображения  5 150

•  Рисование стержней  3 746

•  Paint on Shape  2 937

•  Генератор кроссвордов  3 863

•  Головоломка Paletto  3 082

•  Теорема Монжа об окружностях  3 894

•  Пазл Numbrix  2 562

•  Заборы и коммивояжеры  3 325

•  Игра HIP  2 283

•  Игра Go (Го)  2 190

•  Симулятор лифта  2 593

•  Программа укладки плитки  2 197

•  Генератор лабиринта  2 701

•  Проверка числового ввода  2 350

•  HEX View  2 681

•  Физический маятник  2 347

 
скрыть

Как определить размер файла 2



Автор: Andrey


function GetFileSize(namefile: string): Integer;
var
  InfoFile: TSearchRec;
  AttrFile: Integer;
  ErrorReturn: Integer;
begin
  AttrFile := $0000003F; {Any file}
  ErrorReturn := FindFirst(namefile, AttrFile, InfoFile);
  if ErrorReturn <> 0 then
    Result := -1 {в случае, если файл не найден}
  else
    Result := InfoFile.Size; {Размер файла в байтах}
  FindClose(InfoFile);
end;