Détecter si le fichier est ReadOnly

La fonction suivante renvoie True si un fichier est en lecture seule.

fonction IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
commencer
(* Supposons pas lu seulement *)
Résultat: = False;

si FindFirst (FileName, faAnyFile, sr) = 0 alors
commencer
Résultat: = (sr.Attr et faReadOnly) <> 0;
FindClose (sr);
fin;
fin;