Die Syntaxstörung geregelt leicht vorbei
… OpenFile (PAnsiChar (Dateiname).
aber es nicht wirklich funktioniert.
Dieses tut.
Funktion FileInUse (Dateiname: Schnur): Boolesch;
var hFileRes: HFILE;
anfangen
Resultat: = falsch;
wenn nicht FileExists (Dateiname) dann herausnehmen;
hFileRes: = CreateFile (PChar (Dateiname),
GENERIC_READ oder GENERIC_WRITE,
0,
Null,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
Resultat: = (hFileRes = INVALID_HANDLE_VALUE);
wenn nicht Resultat dann
CloseHandle (hFileRes);
Ende;