为什么系统会在几秒种内停止响应?

Question

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click()
Dim ret As Integer
ret = mciSendString("open d:\1.mid type sequencer alias canyon", 0&, 0, 0)
ret = mciSendString("play canyon wait", 0&, 0, 0) ' 关闭Canyon
ret = mciSendString("close canyon", 0&, 0, 0)
End Sub
代码如上
我编译成EXE后运行,为什么再点命令按钮播放后会有程序会有几秒钟无法响应,就是无法拖动,还有还没放完我就将它关闭的时候程序会让我结束任务,而不是正常关闭,请教

Answer 1

简明英汉词典
 Mark 
 
 
 n. 
 马克（男子名）   
 
 
 n. 
 标志, 分数, 痕迹, 记号 
 vt. 
 做标记于, 打分数, 标志 
 vi. 
 作记号