Com Automation

Question

Private Sub Form_Load()
    Dim obj_excel_create As Object
    Dim obj_excel_get As Object
    Dim obj_self_create As Object
    Dim obj_self_get As Object
    
    
    Set obj_excel_create = CreateObject("Excel.Application") '成功
    Set obj_excel_get = GetObject(, "Excel.Application") '成功
    Set obj_self_create = CreateObject("Self.Application") '成功
    Set obj_self_get = GetObject(, "Self.Application") '失败
End Sub请教:如果才能让GetObject(, "Self.Application")成功呢？
同时也没有调用Self.Application的相关函数。自制Com组件的方法：
    COM组件设计与应用（九）
    IDispatch 接口 for vc6.0
    http://www.vckbase.com/document/viewdoc/?id=1506 

Answer 1

Self这个应用在启动后没有用合适的参数注册自己，所以不能被Get到

Answer 2

你的组件可能得做成进程外组件EXE才行了