Delphi-Help

Описание

function FileGetAttr ( const FileName : string; ) : Integer;

Функция FileGetAttr возвращает атрибуты указанного FileName.
Возвращенное Целочисленное значение будет поразрядной комбинацией следующих независимых атрибутов:
faReadOnly : Файлы только для чтения
faHidden : Скрытые файлы
faSysFile : Системные файлы
faVolumeID : Файлы идентификатора объема
faDirectory : Каталоги
faArchive : Архивные файлы
faSymLink : Символический указатель (ярлык)

Пример кода

var
fileName : string;
myFile   : TextFile;
attrs    : Integer;
begin
// Попытка ооткрыть текстовый файл для записи
fileName := 'Test.txt';
AssignFile(myFile, fileName);
ReWrite(myFile);
// Запись в файл
Write(myFile, 'Hello World');
// Закрытие файла
CloseFile(myFile);
// Получение атрибутов файла
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;

Файл не только для чтения
Файл не скрытый
Файл не является системным
Файл не является идентификатором объёма
Файл не является каталогом
Файл архивный
Файл не является ярлыком

Примечание

Эта функция зависит от Операционной системы. Например, Архив на Linux ничего не означает.