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...
0
0
var
Katalog: file;
begin
Assign(Katalog, 'c:\Katalog');
SetFAttr(Katalog, Hidden);
end;
;-)
0
Nie dziala. A jakim poleceniem robilo sie to w DOSie, bo moge wsadzic procedure exec z odpowiednim poleceniem dos i powinno byc dobrze.
0
attrib
0
Nie dziala.
Jak to nie działa? Ja sprawdzałem i działa.
0
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.
0
Możesz użyć:
SetFileAttributes('C:\Katalog', FILE_ATTRIBUTE_HIDDEN);
Cos takiego w pascalu nie wystepuje.
To mi raczej na delphi wyglada ;-)