Modificar los permisos de un archivo

[BrunoBsso]

Tomá, esto lo necesité hace tiempo y mirando la ayuda en Delphi 2010 lo encontré, es fácil de usar:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo:PWideChar;
begin
  Archivo:='C:\CarpetaX\ArchivoX.extensionX'; //es común para todos los tipos de archivos
  if SetFileAttributes(Archivo,FILE_ATTRIBUTE_NORMAL) then //1º parámetro: path (en PWideChar) - 2º parámetro: atributo (hay más)
    ShowMessage('Ahora está normal');
  if SetFileAttributes(Archivo,FILE_ATTRIBUTE_READONLY) then
    ShowMessage('Ahora es de sólo lectura');
end;

Saludos!