如何在程序中播放.mid文件？(50分)

有人知道如何在程序中播放MIDI文件吗？

mediaplayer控件呀！

没有函数调用的例子吗？

在form中加入checkbox和combobox,当combobox改变时：
procedure TForm2.FlatComboBox1Change(Sender: TObject);
begin

if form2.FlatCheckBox1.Checked=true then

begin

mediaplayer2.Close;
if flatcombobox1.Text='爱' then

mediaplayer2.FileName:='C:/baby/m/Love.MID';
if flatcombobox1.Text='爱相随' then

mediaplayer2.FileName:='C:/baby/m/AXS-爱相随.MID';
if flatcombobox1.Text='祝福' then

mediaplayer2.FileName:='C:/baby/m/AXS-爱相随.MID';
if flatcombobox1.Text='用心良苦' then

mediaplayer2.FileName:='C:/baby/m/YXLK-用心良苦.MID';
if flatcombobox1.Text='深爱着你' then

mediaplayer2.FileName:='C:/baby/m/SAZN-深爱着你.MID';
if flatcombobox1.Text='千纸鹤' then

mediaplayer2.FileName:='C:/baby/m/QZH-千纸鹤.MID';
if flatcombobox1.Text='爱你一万年' then

mediaplayer2.FileName:='C:/baby/m/ANYWN-爱你一万年.MID';
mediaplayer2.Open
mediaplayer2.Play;
end
else

mediaplayer2.Close;
end;

播放WAV的函数就行
好像是PlaySoundEx我记不清了，你查查看

用MCI就可以了。

mediaplayer1.FileName:='C:/baby/m/Love.MID';
mediaplayer1.open;
mediaplayer1.play;

我知道，留 mail。分也少了点吧

MediaPlay我会使用。我想知道如何用函数调用mid文件并播放。

小雨哥：我的QQ是185845281

我知道 MediaPlay 你会用，我要告诉你的当然是你想知道的。给 QQ ？我没有啊。

我的Email是:zqw0117@sina.com

接受答案了.

小雨哥：谢谢您！您觉得分数少了，那么，请到这里来领分：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1365706