Ordner auf Schreibschutz prüfen

[Helmi]

Hallo,

ich hab folgende function um zu prüfen ob eine Datei schreibgeschützt ist.

Delphi-Quellcode:

function Datei_schreibgeschuetzt(FileName: TFileName): Boolean;
begin
  Result := ((FileGetAttr(FileName) and SysUtils.faReadOnly) > 0) and
            (FileExists(FileName));
end;

Kann ich mit dieser Function auch prüfen ob ein Ordner schreibgeschützt ist?
Falls nein, wie kann ich dann prüfen ob ein Ordner schreibgeschützt ist?