Атрибуты файлов

Установить атрибут «Скрытый» — 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(‘Архивный’);

Нашли ошибку в тексте?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *