Get file attributes.
Source position: dosh.inc line 109
procedure GetFAttr( |
var f; |
var attr: Word |
); |
GetFAttr returns the file attributes of the file-variable f. F can be a untyped or typed file, or of type Text. f must have been assigned, but not opened. The attributes can be examined with the following constants :
Under Linux, supported attributes are:
Errors are reported in DosError
|
Set file attributes. |
Program Example8; uses Dos; { Program to demonstrate the GetFAttr function. } var Attr : Word; f : File; begin Assign(f,ParamStr(1)); GetFAttr(f,Attr); WriteLn('File ',ParamStr(1),' has attribute ',Attr); if (Attr and archive)<>0 then WriteLn('- Archive'); if (Attr and directory)<>0 then WriteLn('- Directory'); if (Attr and readonly)<>0 then WriteLn('- Read-Only'); if (Attr and sysfile)<>0 then WriteLn('- System'); if (Attr and hidden)<>0 then WriteLn('- Hidden'); end.