Fråga : Hur avkänn om spara som används av ett annat processaa,

Finns det på något sätt att avkänna och veta om spara som används av ett annat processaa? Att undvika att öppna detta spara och väntan till det annat processaa fullföljandet!
" klar "

Svar : Hur avkänn om spara som används av ett annat processaa,

Syntaxfelet fixas lätt by
… OpenFile (PAnsiChar (FileName).
men den fungerar inte faktiskt.

Detta gör.

fungera FileInUse (FileName: stränga): Boolean;
var-hFileRes: HFILE;
börja
  Resultat: = falskt;
  om inte FileExists (FileName) går ut därefter;
  hFileRes: = CreateFile (PChar (FileName),
                                    GENERIC_READ eller GENERIC_WRITE,
                                    0,
                                    noll,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Resultat: = (hFileRes = INVALID_HANDLE_VALUE);
  om inte resultat därefter
    CloseHandle (hFileRes);
avsluta;