播放背景音乐

方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:1.mid为播放的文件，NN为自定义名称标志
源代码网推荐 procedure TForm1.Button1Click(Sender: Tobject);
源代码网推荐 begin
源代码网推荐 //播放音乐
源代码网推荐 MCISendString("OPEN e:1.MID TYPE SEQUENCER ALIAS NN", "", 0, 0);
源代码网推荐 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;