Delphi-Help

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;