| ivasox |
2015-01-23 10:55 |
能否给个VB6 免注册调用APlayer.dll的例子
我按SDK 的没写 完整，在 程序 有托盘图标时，鼠标经过就会报错。
Public Function CreatePlayer(ByVal hwnd As Long)
XDllGetClassObject CLSID_coclass, IID_IClassFactory, XIClassFactory
If XIClassFactory Is Nothing Then
MsgBox "获取类工厂失败！", , "错误"
Exit Function
End If
XIClassFactory.CreateInstance Nothing, IID_IUnknown, XIUnknown '创建 实例
If XIUnknown Is Nothing Then
MsgBox "创建 XIUnknown 失败！", , "错误"
Exit Function
Else
AtlAxAttachControl ObjPtr(XIUnknown), hwnd, 0
End If
'看SDK 这里 还有没完成的 hr = pDispatch->QueryInterface(__uuidof(APlayer3Lib::IPlayer), (void **)&g_pPlayer);
' 我无法 完成 ，请 帮助 我 谢谢，所以我直接 用了下面那句。
Set APlayer = XIUnknown
|
|