Правила форума
GetFAttr (процедура) (модуль WinDos)Язык:
Русский
English
GetFAttr (процедура) (модуль WinDos)
Возвращает атрибуты файла.
Объявление
Procedure GetFAttr(Var F; Var Attr : Word);
Режим
Windows, Real, Protected
Замечания
Файловой переменной F должен быть назначен типизированный, нетипизированный или текстовый файл, который не должен быть открыт.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetFAttr }
uses Dos, Crt;
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.
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.
::
::
::
