Вопрос : Как обнаружьте если архив будучи использованным другим процессом

Должно так или иначе обнаружить и знать если архив будучи использованными другим процессом? Избежать раскрыть этот архив и ждать до другой отростчатой отделки!
class=

Ответ : Как обнаружьте если архив будучи использованным другим процессом

Ошибка синтаксиса легк зафиксирована мимо
… OpenFile (PAnsiChar (FileName).
но он фактическ не работает.

Это одно делает.

функция FileInUse (FileName: шнур): Булевско;
hFileRes var: HFILE;
начните
  Результат: = ложно;
  если не FileExists (FileName) после этого выходит;
  hFileRes: = CreateFile (PChar (FileName),
                                    GENERIC_READ или GENERIC_WRITE,
                                    0,
                                    ноли,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Результат: = (hFileRes = INVALID_HANDLE_VALUE);
  если не результат после этого
    CloseHandle (hFileRes);
конец;