Vraag : Hoe als het dossier die door een ander proces ontdek worden gebruikt

Zijn er als het dossier die door een ander proces te weten hoe dan ook te ontdekken en worden gebruikt? Vermijden en openings dit dossier tot het andere proces wachten eindig!

Antwoord : Hoe als het dossier die door een ander proces ontdek worden gebruikt

De syntaxisfout wordt gemakkelijk langs bevestigd
… OpenFile (PAnsiChar (FileName).
maar het werkt niet echt.

Dit men.

functie FileInUse (FileName: koord): Van Boole;
var hFileRes: HFILE;
begin
  Resultaat: = Vals;
  als niet FileExists (FileName) dan weggaat;
  hFileRes: = CreateFile (PChar (FileName),
                                    GENERIC_READ of GENERIC_WRITE,
                                    0,
                                    nul,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Resultaat: = (hFileRes = INVALID_HANDLE_VALUE);
  als niet Resultaat toen
    CloseHandle (hFileRes);
eind;