部分代码:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Multimedia As New Mmedia
'通过一个通用的类模块,来播放 avi mid wav 类型的文件 。还可以定义另外的媒体类
'不需要考虑媒体是否存在的问题,无需写 错误捕获代码
'应该检测声卡是否存在和是否禁用的问题,无声卡则程序死掉