class procedure TClient.OnOpenMutexHook(var Context: TContext);
var lpName: PAnsiChar;
begin

  lpName:= PAnsiChar(PUInt32(Context.Esp + 12)^);

  if lpName = 'TQ_CONQUER00' then

    begin

      asm

        lea ecx, @@retfunction
        mov eax, Context
        mov (TContext PTR [eax]).Eip, ecx

        jmp @@done

        @@retfunction:
        ret 0Ch

        @@done:

      end;

      Context.Eax:= UInt32(False);

    end;

end;