7,763
社区成员
发帖
与我相关
我的任务
分享GetAutoServerSetting函数的举例应用？
GetAutoServerSetting函数的举例应用？本人很笨，请高手详细 救助！！！！！！！
...全文
请发表友善的回复…
发表回复
eutwin 2005-07-26
- 打赏
- 举报
GetAutoServerSettings函数是用来判断在本机上注册还是远程注册
twinboys 2005-06-23
- 打赏
- 举报
GetAutoServerSettings函数是用来判断在本机上注册还是远程注册，classID可以到注册表中HKEY_LOCAL_MACHINE\SOFTWARE\Classes项中查找控件ID。实例详见MSDN，将("HelloProj.HelloClass")更改为已查找的控件ID即可看到效果。
作者：明日科技www.mingrisoft.com
作者：明日科技www.mingrisoft.com
twinboys 2005-06-23
- 打赏
- 举报
GetAutoServerSettings函数是用来判断在本机上注册还是远程注册，classID可以到注册表中HKEY_LOCAL_MACHINE\SOFTWARE\Classes项中查找控件ID。实例详见MSDN，将("HelloProj.HelloClass")更改为已查找的控件ID即可看到效果。
a97191 2005-06-23
- 打赏
- 举报
msdn里的
这个示例检索关于远程注册对象 "Hello" 的信息：
Sub ViewHello()
Dim oRegClass As New RegClass
Dim vRC As Variant
vRC = oRegClass.GetAutoServerSettings _
("HelloProj.HelloClass")
If Not(IsEmpty(vRC)) Then
If vRC(1) Then
MsgBox "Hello is registered remotely on a " _
& "server named: " & vRC(1)
Else
MsgBox "Hello is registered locally."
End If
End if
End Sub
这个示例检索关于远程注册对象 "Hello" 的信息：
Sub ViewHello()
Dim oRegClass As New RegClass
Dim vRC As Variant
vRC = oRegClass.GetAutoServerSettings _
("HelloProj.HelloClass")
If Not(IsEmpty(vRC)) Then
If vRC(1) Then
MsgBox "Hello is registered remotely on a " _
& "server named: " & vRC(1)
Else
MsgBox "Hello is registered locally."
End If
End if
End Sub
wzzwwz 2005-06-23
- 打赏
- 举报
干嘛用的？学习一下
TechnoFantasy 2005-06-23
- 打赏
- 举报
是不是 GetAutoServerSettings 啊？
aiur2000 2005-06-23
- 打赏
- 举报
api没这个函数啊,帮顶一下.
