Pergunta : Como detetar se a lima que está sendo usada por um outro processo

Há detetar e saber de qualquer maneira se a lima que está sendo usada por um outro processo? Para evitar abrir esta lima e esperar até o outro revestimento process!
class= do

Resposta : Como detetar se a lima que está sendo usada por um outro processo

O erro de sintaxe é reparado facilmente perto
… OpenFile (PAnsiChar (nome de arquivo).
mas não trabalha realmente.

Este faz.

função FileInUse (nome de arquivo: corda): Bôoleano;
hFileRes do var: HFILE;
começar
  Resultado: = falso;
  se não FileExists (nome de arquivo) retira então;
  hFileRes: = CreateFile (PChar (nome de arquivo),
                                    GENERIC_READ ou GENERIC_WRITE,
                                    0,
                                    nada,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Resultado: = (hFileRes = INVALID_HANDLE_VALUE);
  se não resultado então
    CloseHandle (hFileRes);
extremidade;