Delphi-PRAXiS - Delphi Ordner auf Schreibschutz prüfen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Ordner auf Schreibschutz prüfen (https://www.delphipraxis.net/70469-ordner-auf-schreibschutz-pruefen.html)

Helmi

30. Mai 2006 20:37

Ordner auf Schreibschutz prüfen

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

30. Mai 2006 21:10

Re: Ordner auf Schreibschutz prüfen

Hey,

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

hier mal durchlesen.

mfg shark

Alle Zeitangaben in WEZ +1. Es ist jetzt 21:02 Uhr.