Delphi-Help

Главная Статьи Файлы Как получить атрибуты файла?

Как получить атрибуты файла?

Оцените материал
(0 голосов)


Как получить атрибуты файла?

function GetAttribut( Path: string ): string;
var
  Atr: Integer;
begin
   Result := '----';
   Atr := FileGetAttr( Path );
   if ( Atr and faReadOnly ) = faReadOnly then
      Result[1] := 'r';
   if ( Atr and faHidden ) = faHidden then
      Result[2] := 'h';
   if ( Atr and faSysFile ) = faSysFile then
      Result[3] := 's';
   if ( Atr and faArchive ) = faArchive then
      Result[4] := 'a';
end;
Прочитано 4971 раз

Авторизация



Счетчики