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;