Процедура GetFAttr

Модуль WinDOS

Возвращает атрибуты файла.

Объявление:

 Procedure GetFAttr(Var F; Var Attr : Word);

Режим: 

Замечания:
Файловой переменной F должен быть назначен типизированный, нетипизированный или текстовый файл, который не должен быть открыт.

Пример:

  Uses WinDos, WinCrt;
 
  Var F : File;
   Attr : Word;
 
  Begin
   { Получаем имя файла из командной строки }
   Assign(F, ParamStr(1));
   GetFAttr(F, Attr);
   WriteLn(ParamStr(1));
   If DosError <> 0 Then WriteLn('Код ошибки DOS = ', DosError) Else
    Begin
     WriteLn('Атрибут = ', Attr);
     { Определяем атрибуты, используя константы модуля WinDos }
     If Attr And faReadOnly<>0 Then WriteLn('Только для чтения');
     If Attr And faHidden <> 0 Then WriteLn('Скрытый');
     If Attr And faSysFile <> 0 Then WriteLn('Системный');
    If Attr And faVolumeID <> 0 Then WriteLn('ID тома');
    If Attr And faDirectory <> 0 Then WriteLn('Имя каталога');
    If Attr And faArchive <> 0 Then WriteLn('Архивный (нормальный)');
   End;
 End.

См. также: