Язык:
Русский
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.