[angvelem]

Можешь конечно, только это кака:

Код:

procedure SetAttribut( Path: string; r, h, s, a: char );
var
  At: integer;
begin
   At := FileGetAttr( Path );
   if r = '+' then At := At or faReadOnly;

   if h = '-' then At := At or faHidden;

   if s = '+' then At := At or faSysFile;

   if a = '+' then At := At or faArchive;

   FileSetAttr( Path, At );
end;
...
procedure TForm1.Button2Click(Sender: TObject);
var
  At: integer;
begin
  SetAttribut( 'c:\2.txt', '+', '-', ' ', ' ' );
end;

так "красивее":

Код:

type
  TAttr   = (atReadOnly, atHidden, atSysFile, atArchive);
  TAttSet = set of TAttr;

procedure SetAttribut(Path: string; Attr : TAttrSet);
var
  At: integer;
begin
//  At := FileGetAttr(Path);
  At := 0;
  if atReadOnly in Attr then At := At or faReadOnly;
  if atHidden in Attr then At := At or faHidden;
  if atSysFile in Attr then At := At or faSysFile;
  if atArchive in Attrthen At := At or faArchive;

  FileSetAttr(Path, At);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetAttribut( 'c:\2.txt', [atReadOnly]);
end;