Erkennen Sie, ob die Datei Readonly ist

Erkennen Sie, ob die Datei Readonly ist

Erkennen Sie, ob die Datei Readonly ist : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Die folgende Funktion gibt True zurück, wenn eine Datei schreibgeschützt ist.

IsReadOnly-Funktion (const FileName: String): Boolean;
var
SR: TSearchRec;
beginnen
(* Übernehmen nicht nur lesen *)
Ergebnis: = False;

Wenn FindFirst (FileName, FaAnyFile, sr) = 0 then
beginnen
Ergebnis: = (sr. Attr und FaReadOnly) <> 0;
FindClose(sr);
Ende;
Ende;