Questione : Come rilevare se la lima che è usata tramite un altro processo

È ci di rilevare e sapere comunque se la lima che è usata tramite un altro processo? Per per evit diare aprire questa lima ed attendere fino all'altro rivestimento trattato!
class= del

Risposta : Come rilevare se la lima che è usata tramite un altro processo

L'errore di sintassi è riparato facilmente vicino
… OpenFile (PAnsiChar (nome di schedario).
ma realmente non funziona.

Questo fa.

funzione FileInUse (nome di schedario: stringa): Booleano;
hFileRes di varietà: HFILE;
cominciare
  Risultato: = falso;
  se non FileExists (nome di schedario) allora esce;
  hFileRes: = CreateFile (PChar (nome di schedario),
                                    GENERIC_READ o GENERIC_WRITE,
                                    0,
                                    zero,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Risultato: = (hFileRes = INVALID_HANDLE_VALUE);
  se non risultato allora
    CloseHandle (hFileRes);
estremità;