L'erreur de syntaxe est facilement corrigée près
… OpenFile (PAnsiChar (nom de fichier).
mais cela ne fonctionne pas réellement.
Celui-ci fait.
fonction FileInUse (nom de fichier : corde) : Booléen ;
hFileRes de variété : HFILE ;
commencer
Résultat : = faux ;
sinon FileExists (nom de fichier) sortent alors ;
hFileRes : = CreateFile (PChar (nom de fichier),
GENERIC_READ ou GENERIC_WRITE,
0,
zéro,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0) ;
Résultat : = (hFileRes = INVALID_HANDLE_VALUE) ;
sinon résultat alors
CloseHandle (hFileRes) ;
extrémité ;