我在窗口上放了一个OLE控件，在窗口打开时，如何判断它已经连上了OLE控件？或者判断该计算机上的控件已经注册！
------解决方案--------------------
用ConnectToNewObject 函数，判断返回值，为0成功连接。
------解决方案--------------------
myoleobject1 = Create OLEObject
result = myoleobject1.ConnectToNewObject("excel.application")
re = result
String ls_exp
CHOOSE CASE result
CASE -1
ls_exp = '无效调用oleobject'
CASE -2
ls_exp = '未找到指定的oleobject类名'
CASE -3
ls_exp = '不能创建对象oleobject'
CASE -4
ls_exp = '不能连接到对象oleobject'
CASE -9
ls_exp = '其他错误'
CASE -15
ls_exp = '本计算机上未加载MTS'
CASE -16
ls_exp = '无效调用该函数不使用于OLETxnObject对象'
END CHOOSE
IF result <> 0 THEN
MessageBox('OLE错误','OLE无法连接,返回错误代码为:'+String(result)+ls_exp)
RETURN
END IF