我在程序中用mediaplayer播放文件后，不能关闭，请问怎么用程序关闭？

[westgirl]

[zgjchina1]

关闭进程！
SendMessage app_hWnd, WM_CLOSE, 0, 0

[westgirl]

怎么没有人呢？！！！

[westgirl]

参数怎么设置啊？

[vxhelp]

对不起，打扰各位一下，一个难题

http://www.csdn.net/expert/topic/485/485482.shtm

[haisuifeng]

sdds

[lihonggen0]

SendMessage, SendMessageBynum, SendMessageByString

VB声明
Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
说明
调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的“类型安全”声明形式
返回值
Long，由具体的消息决定
参数表
参数 类型及说明
hwnd Long，要接收消息的那个窗口的句柄
wMsg Long，消息的标识符
wParam Long，具体取决于消息
lParam Any，具体取决于消息

Top

[westgirl]

呵呵，这些我知道，问题是我不知道怎么使用。
Dim aaa As Integer
aaa = SendMessage(MediaPlayerhwnd, WM_CLOSE, 0, 0)
这样写还是没有关闭正在播放的文件。

[dbcontrols]

'以下写在窗体的通用里面
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
'以下写一个按钮或某个事件里面
Dim aaa As Integer
aaa = SendMessage(MediaPlayer控件名称.hwnd, WM_CLOSE, 0, 0)

[haisuifeng]

midiaplayer.filename=""
就可以了

[westgirl]

我也知道了，谢谢各位。

[westgirl]

我也知道了，都是我的错，非常感谢各位！