Cuestión : Cómo detectar si el archivo que es utilizado por otro proceso

¿Hay detectar y saber de todos modos si el archivo que es utilizado por otro proceso? ¡Para evitar abrir este archivo y esperar hasta el otro final de proceso!
class= del

Respuesta : Cómo detectar si el archivo que es utilizado por otro proceso

El error de sintaxis se fija fácilmente cerca
… OpenFile (PAnsiChar (nombre de fichero).
pero no trabaja realmente.

Éste hace.

función FileInUse (nombre de fichero: secuencia): Boleano;
hFileRes del var: HFILE;
comenzar
  Resultado: = falso;
  si no FileExists (nombre de fichero) entonces sale;
  hFileRes: = CreateFile (PChar (nombre de fichero),
                                    GENERIC_READ o GENERIC_WRITE,
                                    0,
                                    nada,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Resultado: = (hFileRes = INVALID_HANDLE_VALUE);
  si no resultado entonces
    CloseHandle (hFileRes);
extremo;