Чтобы прочитать аттрибуты файла, необходимо передать имя файла в функцию FileGetAttr, которая вернёт аттрибуты для данного файла.
Например, добавьте на форму компоненты TButton и TLabel и добавьте следующий код в в обработчик события OnClick кнопки:
var
attr: Integer;
s: string;
begin
attr := FileGetAttr('c:\Autoexec.bat');
if (attr and faHidden) <> 0 then s := 'Hidden';
if (attr and faReadOnly) <> 0 then s := s + 'Read-Only';
if (attr and faSysFile) <> 0 then s := s + 'System';
if (attr and faArchive) <> 0 then s := s + 'Archive';
Label1.Caption := s;
end;
|
Чтобы установить аттрибуты у файла, необходимо передать имя файла и нужные аттрибуты в функцию FileSetAttr. Каждый аттрибут имеет мнемоническое имя, объявленное в юните SysUtils.
Например, чтобы установить файлу системный атрибут, необходимо выполнить следующий код:
Attributes := Attributes or faSystem;
|
Так же можно очистить некоторые аттрибуты. Например, чтобы снять атрибуты только чтения и "Скрытый", необходимо выполнить следующий код:
Attributes := Attributes and not (faReadOnly or faHidden);
|
Вместо объявленных значений атрибутов можно использовать числовые значения.
128 - нормальный
1 - только чтение
2 - скрытый
4 - системный
32 - архивный
|