sig
  type 'a interface
  type 'a iid
  type clsid
  type 'a opaque
  exception Error of int * string * string
  val initialize : unit -> unit
  val uninitialize : unit -> unit
  val query_interface : 'a Com.interface -> 'b Com.iid -> 'b Com.interface
  type iUnknown
  type iDispatch
  val iUnknown_of : 'a Com.interface -> Com.iUnknown Com.interface
  val combine : 'a Com.interface -> 'b Com.interface -> 'a Com.interface
  val clsid : string -> Com.clsid
  val create_instance : Com.clsid -> 'a Com.iid -> 'a Com.interface
  type 'a component_factory = {
    create : unit -> 'a Com.interface;
    clsid : Com.clsid;
    friendly_name : string;
    ver_ind_prog_id : string;
    prog_id : string;
  }
  val register_factory : 'a Com.component_factory -> unit
  type hRESULT_int = int
  type hRESULT_bool = bool
  type bSTR = string
  val _parse_iid : string -> 'a Com.iid
end