方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中d:\onestop.mid 为播放的文件,NN为自定义名称标志,你可以注意到它前面的关键字alias
procedure TForm1.Button1Click(Sender: Tobject);
begin
//播放音乐
MCISendString('OPEN d:\onestop.mid TYPE SEQUENCER ALIAS NN', '', 0, 0);
//'OPEN e:\1.MID TYPE SEQUENCER ALIAS NN' 注意 TYPE ALIAS这些关键词
MCISendString('PLAY NN FROM 0', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
procedure TForm1.Button2Click(Sender: Tobject);
begin
//停止播放
MCISendString('OPEN e:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('STOP NN', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;