[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Return attributes of a file.
Source position: filutilh.inc line 181
function FileGetAttr( |
const FileName: UnicodeString |
):LongInt; |
const FileName: RawByteString |
):LongInt; |
FileGetAttr returns the attribute settings of file FileName. The attribute is a OR-ed combination of the following constants:
In case of error, -1 is returned.
|
Set the attributes of a file. |
|
|
Return the timestamp of a file. |
|
|
Return the file time of an opened file. |
Program Example40; { This program demonstrates the FileGetAttr function } Uses sysutils; Procedure Testit (Name : String); Var F : Longint; Begin F:=FileGetAttr(Name); If F<>-1 then begin Writeln ('Testing : ',Name); If (F and faReadOnly)<>0 then Writeln ('File is ReadOnly'); If (F and faHidden)<>0 then Writeln ('File is hidden'); If (F and faSysFile)<>0 then Writeln ('File is a system file'); If (F and faVolumeID)<>0 then Writeln ('File is a disk label'); If (F and faArchive)<>0 then Writeln ('File is artchive file'); If (F and faDirectory)<>0 then Writeln ('File is a directory'); end else Writeln ('Error reading attributes of ',Name); end; begin testit ('ex40.pp'); testit (ParamStr(0)); testit ('.'); testit ('/'); End.