用MCI指令进行多媒体编程

来源：东日制作室作者：Nicrosoft 出处：巧巧读书 2005-11-06 进入讨论组

接着再介绍一些常用的MCI指令。
MCI指令一般格式为：MCI指令设备名 [参数]
打开多媒体设备：open，如：open CDAudio、open c:\windows\chimes.wav type waveaudio。
播放多媒体设备：play，如：play CDAudio from 5000 to 20000（播放CD的第5秒到第20

秒）、play c:\windows\chimes.wav。
关闭多媒体设备：close，如：close all（关闭所有多媒体设备）。
得到设备状态信息：status，如：status cdaudio number of track（得到CD的曲目总数）

有了这些预备知识，就可以将MCI和API结合起来进行多媒体编程了。

　　例如，要在程序中使用音效（播放WAV文件），要求如果WAV文件不存在的话要求忽略错误（即不弹出出错信息），则程序如下（以VB为例，Delphi中类似）：

Dim Result as Integer
Dim ReturnStr As String * 1024 '注意，必须指定String的长度
Result=mciSendString("play c:\windows\chimes.wav",ReturnStr,1024,0)
'其中ReturnStr为某些MCI指令执行后传送给程序的文字信息

　　以上这段程序可以播放指定的WAV文件，如果成功执行，则Result的值为0，如果文件不存在或出现其他错误，错误代码会传送给Result，但程序不会中断。若要根据错误代码自行处理错误
信息，可以使用mciGetErrorString函数处理：

Dim ErrStr As String * 1024
if Result=0 then
msgbox "播放成功"
Else
i%=GetErrorString(ReturnStr,ErrStr,1024)
msgbox ErrStr
End If
文字：http://www.qqread.com/vb/d920559010.html