Функция FileSetAttr – устанавливает атрибуты файла

Функция FileSetAttr в Delphi устанавливает атрибуты файла.

Функция FileSetAttr: Создание текстового файла, установка атрибутов только для чтения и скрытый и показ его атрибутов

var
  fileName : string;
  myFile   : TextFile;

  attrs    : Integer;

begin
  // Попытка открыть текстовый файл для записи
  fileName := 'ATestFile.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);

  // Запись в файл
  Write(myFile, 'Hello World');

  // Закрытие файла
  CloseFile(myFile);

  // Делание файла только для чтения и системным
  if FileSetAttr(fileName, faReadOnly or faSysFile) > 0
  then ShowMessage('Атрибуты файла установлены в только для чтения и системный')
  else ShowMessage('Изменение атрибутов файла провалилось');

  // Получение атрибутов файла
  attrs := FileGetAttr(fileName);

  // Показ этих атрибутов
  if attrs and faReadOnly > 0
  then ShowMessage('Файл только для чтения')
  else ShowMessage('Файл не только для чтения');

  if attrs and faHidden > 0
  then ShowMessage('Файл скрытый')
  else ShowMessage('Файл не скрытый');

  if attrs and faSysFile > 0
  then ShowMessage('Файл является системным')
  else ShowMessage('Файл не является системным');

  if attrs and faVolumeID > 0
  then ShowMessage('Файл является идентификатором объёма')
  else ShowMessage('Файл не является идентификатором объёма');

  if attrs and faDirectory > 0
  then ShowMessage('Файл является каталогом')
  else ShowMessage('Файл не является каталогом');

  if attrs and faArchive > 0
  then ShowMessage('Файл архивный')
  else ShowMessage('Файл не архивный');

  if attrs and faSymLink > 0
  then ShowMessage('Файл является ярлыком')
  else ShowMessage('Файл не является ярлыком');
end;