Cómo saber si un fichero esta marcado de sólo lectura ?

[[duilioisola]]

Mira el help de Delphi de:

function FileGetAttr(const FileName: string): Integer;

Description

FileGetAttr returns the attributes of the file as a string of bits. This value is the same as the Attr field of a TSearchRec record. Check for individual attributes with code such as the following:

Attrs := FileGetAttr('MyFile.sys');

if Attrs and faHidden <> 0 then
FileSetAttr('MyFile.sys', Attrs – faHidden);

A return value of -1 indicates that an error occurred.

El atributo serña faReadOnly