一简单问题，请高手指点

Question

怎样按一个按钮后想一个声音？调用哪个函数？声音为.mid文件,能不能给点代码提示

Answer 1

用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');//播放

Answer 2

uses mmsystem;
...
playsound('c:\1.wav');

Answer 3

dichun(融雪) 得回答有创意啊；哈