4
{ Program to demonstrate the GetFAttr function. }
10
Assign(f,ParamStr(1));
12
WriteLn('File ',ParamStr(1),' has attribute ',Attr);
13
if (Attr and archive)<>0 then WriteLn('- Archive');
14
if (Attr and directory)<>0 then WriteLn('- Directory');
15
if (Attr and readonly)<>0 then WriteLn('- Read-Only');
16
if (Attr and sysfile)<>0 then WriteLn('- System');
17
if (Attr and hidden)<>0 then WriteLn('- Hidden');