Evitar error de excepción general con ficheros

[Belaix]

Hola

Con esto:

if (FileExists('c:\file.txt') then

Se si el fichero existe ...

Pero como puedo saber si puedo leerlo y no lo está usando otra aplicación?

[[duilioisola]]

Ábrelo dentro de un bloque try...except.

o

Utiliza {I+} ... {I-}
Esto deshabilita las exceptiones y devuelve el resultado en IOResult.
Si lo abres e IOResult=0 entonces tienes permiso para utilizarlo.

Ejemplo del Help de Delphi

Código Delphi [-]
function FileIsThere(FileName: string): Boolean;

{ Boolean function that returns True if the file exists; otherwise,
  it returns False. Closes the file if it exists. }
 var
  F: file;
begin
  {$I-}
  AssignFile(F, FileName);
  FileMode := 0;  {Set file access to read only }
  Reset(F);
  CloseFile(F);
  {$I+}
  FileIsThere := (IOResult = 0) and (FileName <> '');
end;  { FileIsThere }

[Belaix]

Joe, acabo de encontrar este código:

Código Delphi [-]
function FileInUse(FileName: string): Boolean;
var hFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then exit;
  hFileRes := CreateFile(PChar(FileName),
                                    GENERIC_READ or GENERIC_WRITE,
                                    0,
                                    nil,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Result := (hFileRes = INVALID_HANDLE_VALUE);
  if not Result then 
    CloseHandle(hFileRes);
end;

Pero el tuyo me gusta muchiiiisimo más.

Mil gracias duilioisola!