GetFAttr

   

Declaration:

Procedure GetFAttr (var F; var Attr: word) ;

Description:

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 :

• ReadOnly = 01h
• Hidden = 02h
• SysFile = 04h
• VolumeId = 08h
• Directory = 10h
• Archive = 20h
• AnyFile = 3fh

Under LINUX, supported attributes are:

• Directory
• ReadOnly if the current process doesn't have access to the file.
• Hidden for files whose name starts with a dot ('.').

Errors:

Errors are reported in DosError

See also:

SetFAttr

Example

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 $20)<>0 then WriteLn('- Archive');
  if (Attr and $10)<>0 then WriteLn('- Directory');
  if (Attr and $4)<>0 then WriteLn('- Read-Only');
  if (Attr and $2)<>0 then WriteLn('- System');
  if (Attr and $1)<>0 then WriteLn('- Hidden');
end.