＋设为首页 ＋添加到收藏夹
怎样按一个按钮后想一个声音？调用哪个函数？声音为.mid文件,能不能给点代码提示
用MCI相关函数：
//定义函数
function SendMciStr(const Msg:String):PChar;
var Buf:Array[0..4095] of Char;
Begin
MciSendString(Pchar(msg),Buf,Sizeof(Buf),Handle);//调用MciSendString
Result:=Buf;
End
//调用
SendMciStr(Open c:\some.mid alias mid);//打开MID文件
SendMciStr(Play mid notify);//播放
uses mmsystem;
...
playsound(c:\1.wav);
