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?

[s.h.a.r.k]

Hey,

Ja das müsste auch funktionieren. Kannst dir ja mal den Artikel hier mal durchlesen.

mfg shark