rosemagic.ebs

Rose2003自定义插件开发代码示例,delphi版本

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