Dateiattribute

[Pasci]

Hi..

wie kann ich einer Datei das Attribut zB. versteckt oder schreibgeschützt anhängen??

Greats Screamiantor

[Rainer]

ein kleines Beispiel, Attribut versteckt setzen, wenn nicht vorhanden, bzw. entfernen falls vorhanden.

[font size=2 face="Courier New"][font color="#000000"]var
  atr: Integer;
begin
  atr := FileGetAttr('c:test.txt');
  if (atr and faHidden  ] 0) then
    [font color="#000080"]//Attribut versteckt entfernen
    [/font]FileSetAttr('c:test.txt', atr - faHidden )
  else
    [font color="#000080"]//Attribut versteckt setzen
    [/font]FileSetAttr('c:test.txt', atr + faHidden );
end;
[/font][/font]