Detectar se o arquivo estiver ReadOnly

A seguinte função retornará True se um arquivo é somente leitura.

função IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
começo
(* Considere-se não somente leitura *)
Resultado: = False;

se FindFirst (FileName, faAnyFile, sr) = 0 então
começo
Resultado: = (sr.Attr e faReadOnly) <> 0;
FindClose (sr);
final;
final;