Delphi - Comprobar si un archivo es writeable!!!

¿cómo se puede comprobar si un archivo es escribible?

Busca algo coom getattrFile o getfileattr, no me acuerdo pero si es en un delphi viejo capas que te toma la funcion que se usaba en pascal.

Saludos!

Prueba una cosa así:

function TForm1.ComprobarSoloLectura: Bool;
var
Atributos: integer;
begin
Atributos:= FileGetAttr(Archivo);
if (Atributos and faReadOnly<>0) then
Result:=true
else
Result:=false
end;

Ok, esto funciona, pero creo que me equivoqué al plantear la pregunta. ¿Cómo se puede saber si el archivo se encuentra abierto por otra aplicación?

Tengo problemas con la vista previa que genera windows de algunos archivos como wav. Esto hace que el método save de un tmediaplayer provoque errores.

Hay una propiedad del MediaPlayer que es Shareable. No se si es lo que buscas. Tengo entendido que limita el acceso de otras aplicaciones al archivo abierto por el media player.

Pues si que podría servirme, pero el problema que tengo que tengo es que ese fichero puede estar abierto con anterioridad por otra aplicación (como puede ser la vista previa de windows). Lo ideal sería que se apropiara del fichero en modo exclusivo, pero como no sé si esto es posible, creo que mostraré información al usuario para que no maneje los ficheros de audio fuera de la aplicación. (aunque no es una solución que me convenza demasiado).

Saludos

Fran García