Функция 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;