getfattr.pas
Пример программы для процедуры GetFAttr.
Код примера
{Getfattr.PAS}
{ Пример программы для процедуры GetFAttr }
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.
Скачать getfattr.pas