[Pascal] Atrybuty katalogu

Jak zmienic atrybuty katalogu. Do plikow sluzy procedura SetFAttr, ale zeby jej urzyc trzeba skojarzyc plik ze zmienna f:file - z katalogiem nie da sie tego zrobic, wiec jak...

var
Katalog: file;
begin
Assign(Katalog, 'c:\Katalog');
SetFAttr(Katalog, Hidden);
end;

;-)

Nie dziala. A jakim poleceniem robilo sie to w DOSie, bo moge wsadzic procedure exec z odpowiednim poleceniem dos i powinno byc dobrze.

attrib

Nie dziala.

Jak to nie działa? Ja sprawdzałem i działa.

Jak to nie działa? Ja sprawdzałem i działa.

var attr:word;
begin
assign(plik,'c:\katalog);
getfattr(plik,attr);
attr := attr + ReadOnly;
setfattr(plik,attr - directory);
end;

Zaczelo dzialac dopiero jak dolozylem - directory.

Możesz użyć:

SetFileAttributes('C:\Katalog', FILE_ATTRIBUTE_HIDDEN);

Cos takiego w pascalu nie wystepuje.
To mi raczej na delphi wyglada ;-)