Fájlok attributumát lehet megváltoztatni a következő művelettel:

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
 a:=GetFileAttributesa('c:\log.txt');
  {
  a=128 -semmi
  a=32 -archiv
  a=1 -csak olvasható
  a=2 -rejtett
  a=4 -system
  }
 ...

Megjegyzés:
Például ha egy fájlnak az attributumat rejtett+csak olvashatóra szeretnénk állítani, akkor:
SetFileAttributes('c:\log.txt',3);