[dec]

Hola,

Una forma podría ser utilizar la función "FileSetReadOnly". Otra puede ser utilizar la función "SetFileAttributes".

Código Delphi [-]
  FileSetReadOnly('C:\archivo.txt', true);

Código Delphi [-]
  var
    atributos: Cardinal;
  begin
    atributos := GetFileAttributes(PChar('C:\archivo.txt'));
    SetFileAttributes(PChar('C:\archivo.txt'), atributos + faReadOnly);
  end;