Atrybuty

Mam małe pytanko. Czy wie może ktoś jak nadać folderowi atrybut "ukryty".
Pewnie to banalne, ale szukałem i znaleźć nie mogę.

To jest dla plików, ale u mnei dla katalogu tez nadał.

{ Jak sprawdzić atrybuty pliku ? }
Case FileGetAttr( 'Plik.txt' ) of
faReadOnly : ShowMessage('Tylko do odczytu');
faHidden : ShowMessage('Ukryty');
faHidden + faReadOnly : ShowMessage('Ukryty i tylko do odczytu');
faSysFile : ShowMessage('Systemowy');
faArchive : ShowMessage('Archiwalny');
end;

// istniejące atrybuty to liczby szesnastkowe:
faReadOnly = $00000001; // = 0000001b binarnie
faHidden = $00000002; // = 0000010b
faSysFile = $00000004; // = 0000100b
faVolumeID = $00000008; // = 0001000b
faDirectory = $00000010; // = 0010000b
faArchive = $00000020; // = 0100000b
faAnyFile = $0000003F; // = 1000000b

// aby sprzwdzić, czy atrybut jest wśród inych
// trzeba postąpić inaczej:
if (FileGetAttr('Plik.txt') and faReadOnly) = faReadOnly
then ReadOnlyCheckBox.Checked:= true;

{ Jak nadać atrybut plikowi ? }
FileSetAttr( 'Plik.txt ', faReadOnly );

Zamiast 'Plik.txt' daj np 'c:\katalog'

Dzięki!!!