HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
20 апреля. В 1934 году (84 года назад) - ЦИК СССР впервые присваивает звания Героев Советского Союза. Ими награждаются летчики - участники спасения челюскинцев.
 
 

Turbo Pascal Documentation

Процедура GetFAttr

Модуль Dos


     Функция: Возвращает атрибуты файла.
     Описание: GetAttr(var f; var атриб : byte)
     Примечания: Параметр f должнен представляеть собой фай-
ловую  переменную  (соответствующую типизованному, нетипизо-
ванному или текстовому файлу) для которого должно  быть  вы-
полнено  присваивание файловой переменой, но который не дол-
жен быть открыт. Проверка атрибутов выполняется путем  срав-
нения их с масками, заданными в виде констант в модуле Dos:

  const
    { константы атрибутов файла }
   ReadOnly   = 01;  { только чтение }
   Hidden     = 02;  { "скрытый" файл }
   SysFile    = 04;  { системный файл }
   VolumeId   = 08;  { идентификатор тома }
   Directory  = 10;  { каталог }
   Archive    = 20;  { архивизация }
   AnyFile    = 3F;  { прочий файл }

     Коды ошибок можно получить с помощью функции  DosError.
Возможными  кодами  ошибок являются код 3 (недопустимый мар-
шрут) и код 5 (файл недоступен).
     Ограничения: Файл f не должен быть открыт.
     Прочее: См. также процедуры SetFAttr,  GetFAttr,  SetF-
Time.
     Пример:

uses Dos;
  var
    f : file;
    attr : byte;
  begin
{ получить из командной строки имя файла }
Assign(f, ParamStr(1));
GetFAttr(f, attr);
Writeln(ParamStr(1));
ifDosError <> 0 then
    Writeln('Код ошибки ДОС = ', DosError)
else
begin
    Writeln('Атрибут = ', attr);
{ определить тип атрибута файла с помощью флагов в модуле
   Dos }
  if attr and ReadOnly <> 0 then
    Writeln('Файл доступен только по чтению');
if attr and Hidden <> 0 then
    Writeln('"Скрытый" файл');
if attr and SysFile <> 0 then
    Writeln('Системный файл');
if attr and VolumeId <> 0 then
    Writeln('Идентификатор тома');
if attr and Directory <> 0 then
    Writeln('Каталог');
if attr and Archive <> 0 then
    Writeln('Архивизируемый (обычный) файл');
end; { else }
end.



пословицы
HOME