Delphi Атрибуты Файла

Delphi позволяет получить доступ к атрибутам файла с помощью процедуры GetFileAttributes. Эта функция возвращает маску атрибутов файла, описывающую состояние файла. Маска может содержать комбинацию из следующих значений:

FILE_ATTRIBUTE_ARCHIVE - файл является архивным.

FILE_ATTRIBUTE_HIDDEN - файл скрытый.

FILE_ATTRIBUTE_NORMAL - файл имеет обычные атрибуты.

var  Attr: DWORD;begin  Attr := GetFileAttributes('C:\example.txt');  if Attr <> INVALID_FILE_ATTRIBUTES then  begin    if Attr and FILE_ATTRIBUTE_HIDDEN = FILE_ATTRIBUTE_HIDDEN then      ShowMessage('Файл скрыт.');    if Attr and FILE_ATTRIBUTE_ARCHIVE = FILE_ATTRIBUTE_ARCHIVE then      ShowMessage('Файл является архивным.');  end;end;

В данном примере мы получаем атрибуты файла 'C:\example.txt' и проверяем, был ли установлен соответствующий атрибут. Если атрибут был установлен, то выводим соответствующий текст.