API函数mciSendString的最后一个参数hwndCallback到底怎么用？

[himhim]

本人在VB公共模块中定义了一个函数如下：
Public Function MciCallBack(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Msgbox “Called back!"
End Function
然后使用API函数这样调用
lngRet = mciSendString(strCmd & " notify", strInfo, 256, AddressOf MciCallBack)
程序可以正常运行，但为什么总是没有“Called back!”的对话框出现？仿佛它根本就没被回调过一样。不知哪位高手肯指点一二？

[Larky]

hwndCallback
Handle of a callback window if the "notify" flag was specified in the command string.

[Un1]

mciSendString 的最后一个参数是 window 的 hwnd 不是地址。如果你写为：

private sub Command1_Click()
lngRet = mciSendString(strCmd & " notify", strInfo, 256, hWnd)
end sub

这时再用spy去看看就可以看到你的窗口收到事件，不过在VB中如果要拦截此事件，你需要在写一个winproc去hook,或者使用spywork一类的控件去处理。