Fájlok attributuma

Fájlok attributumát lehet megváltoztatni a következő művelettel.Például ha egy fájlnak az attributumat rejtett+csak olvashatóra szeretnénk állítani, akkor:
SetFileAttributes('c:\log.txt',3);

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
}
...