rosemagic.ebs

来自「Rose2003自定义插件开发代码示例,delphi版本」· EBS 代码 · 共 13 行

Sub Main
  Dim manager As Object

  On Error Resume Next
  Set manager = CreateObject( "MyFact.IAbout" )
  If Not manager Is Nothing Then
    manager.start RoseApp.GetObject()
  Else
    MsgBox "MyFact.CoMyFact Not Install."
  End If
End Sub