Erkennen, ob Datei ist ReadOnly

Die folgende Funktion gibt "True", wenn eine Datei nur lesen.

Funktion IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
beginnen
(* Nehmen Sie nicht nur lesen *)
Result: = False;

wenn FindFirst (FileName, faAnyFile, sr) = 0, dann
beginnen
Result: = (sr.Attr und faReadOnly) <> 0;
FindClose (sr);
end;
end;