Описание:
Delphi функция FileSetAttr
устанавливает атрибуты определенного файла. Также можно изменять атрибуты файла.
Следующими значениями integer возможна установка
атрибутов:
faReadOnly : 1 : файл только
для чтения.
faHidden : 2 : скрытый
файл.
faSysFile : 4 : системный
файл.
faVolumeID : 8 : ФАЙЛЫ Объема
ID.
faDirectory : 16 : Файлы
Директория.
faArchive : 32 : Файлы
Архива.
faSymLink : 64 : СИМВОЛИЧЕСКАЯ связь.
Возвращённая величина Integer является нулем,
если установка атрибутов была успешна, в противном случае она содержит код
ошибки.
Пример кода:
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;
Результат выполнения:
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