getActiveObject :: ProgID -> IO (IDispatch a)
getActiveObject progid
      = coGetActiveObject progid iidIDispatch_unsafe
getActiveObject :: ProgID -> IO (IDispatch a)
getActiveObject progid
      = coGetActiveObject progid iidIDispatch_unsafe
getActiveObject progid
      = coGetActiveObject progid iidIDispatch_unsafe