Установить атрибут “Скрытый” – SetFileAttributes(PChar(‘1.txt’),faHidden);
Установить атрибут “Только для чтения” – SetFileAttributes(PChar(‘1.txt’),faReadOnly);
Установить атрибут “Системный” – SetFileAttributes(PChar(‘1.txt’),faSysFile);
Установить атрибут “Архивный” – SetFileAttributes(PChar(‘1.txt’),faArchive);
Снять атрибут “Только для чтения” с файла – FileSetAttr(PChar(‘1.txt’),Not(faReadOnly));
Снять атрибут “Скрытый” – FileSetAttr(PChar(‘1.txt’),Not(faHidden));
Снять атрибут “Системный” – FileSetAttr(PChar(‘1.txt’),Not(faSysFile));
Снять атрибут “Архивный” – FileSetAttr(PChar(‘1.txt’),Not(faArchive));
Вывести сообщение если файл имеет атрибут “Скрытый” – if (FileGetAttr(‘1.txt’) and faHidden)<>0 then ShowMessage(‘Cкрытый’);
Вывести сообщение если файл имеет атрибут “Только для чтения” – if (FileGetAttr(‘1.txt’) and faReadOnly)<>0 then ShowMessage(‘Только для чтения’);
Вывести сообщение если файл имеет атрибут “Системный” – if (FileGetAttr(‘1.txt’) and faSysFile)<>0 then ShowMessage(‘Системный’);
Вывести сообщение если файл имеет атрибут “Архивный” – if (FileGetAttr(‘1.txt’) and faArchive)<>0 then ShowMessage(‘Архивный’);