Frage : Wie ermitteln wenn die Akte, die durch einen anderen Prozess verwendet wird

Gibt es, irgendwie zu ermitteln und zu wissen wenn die Akte, die durch einen anderen Prozess verwendet? Zu diese, Akte zu öffnen vermeiden und bis das andere Prozessende warten!

Antwort : Wie ermitteln wenn die Akte, die durch einen anderen Prozess verwendet wird

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;