| Description | ||||||||||||||
|
The FileSetAttr function sets the attributes of the specified FileName.
The Attributes integer must be set to a combination of none, some or all of the following independent bit settings :
The returned Integer value is zero if the set was successful, otherwise it contains an error code. | ||||||||||||||
| Notes | ||||||||||||||
| This function is Operating System dependent. For example, Archive means nothing on Linux.
Important : During testing, the author always received a non-zero return code, even though the appropriate bits were set OK. | ||||||||||||||
| Related commands | ||||||||||||||
| ||||||||||||||
 Download this web site as a Windows program.
| ||||||||||||||
|
|
| Example code : Create a text file, make is read only and hidden and display its attributes |
| var
fileName : string; myFile : TextFile; attrs : Integer; begin // Try to open a text file for writing to fileName := 'ATestFile.txt'; AssignFile(myFile, fileName); ReWrite(myFile); // Write to the file Write(myFile, 'Hello World'); // Close the file CloseFile(myFile); // Make the file read only and system if FileSetAttr(fileName, faReadOnly or faSysFile) > 0 then ShowMessage('File made into a read only system file') else ShowMessage('File attribute change failed'); // 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; |
| Show full unit code |
| File made into a read only system file
File is read only File is not hidden File is a system file File is not a Volume ID File is not a directory File is not archived File is not a symbolic link |