Modificar los permisos de un archivo

[radge]

Buenas soy usuario de delphi 5 y tengo un trozo de código que intento borrar un archivo

try
deletefile(...)
except
...
end;

Si no puede borrar el archivo porqué esta en modo SOLO LECTURA no salta la excepción , así que he mirado a ver si podria modificarle los permisos al archivo desde delphi pero no encuentro el como...

Gracias por adelantado,

radge

[radge]

Alguien se le ocurre algo ? o alguna web dodne buscar o similar ? en san google ya no se como buscar....

gracias , radge

[Ñuño Martínez]

Si fuera POSIX (Linux, MacOS, AIX, BSD, ...) aún te podría decir, pero en Windows ni idea.

[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!