var
fileName : string;
myFile : TextFile;
attrs : Integer;
begin
// Try to open a text file for writing to
fileName := 'Test.txt';
AssignFile(myFile,
fileName);
ReWrite(myFile);
// Write to
the file
Write(myFile, 'Hello World');
//
Close the file
CloseFile(myFile);
// Get
the file attributes
attrs := FileGetAttr(fileName);
// Display these attributes
if attrs and
faReadOnly > 0
then ShowMessage('File is read only')
else ShowMessage('File is not read only');
if attrs and faHidden > 0
then ShowMessage('File is hidden')
else ShowMessage('File is not hidden');
if
attrs and faSysFile > 0
then ShowMessage('File is a system
file')
else ShowMessage('File is not a system file');
if attrs and faVolumeID > 0
then
ShowMessage('File is a volume ID')
else ShowMessage('File is
not a volume ID');
if attrs and faDirectory > 0
then ShowMessage('File is a directory')
else
ShowMessage('File is not a directory');
if attrs and
faArchive > 0
then ShowMessage('File is archived')
else ShowMessage('File is not archived');
if attrs and faSymLink > 0
then ShowMessage('File is a
symbolic link')
else ShowMessage('File is not a symbolic
link');
end;