Delphi实现背景音乐播放代码_自学php网-自学php网

来源：自学PHP网时间：2014-12-04 22:12 作者：阅读:次

[导读] 最近在做个抽奖程序，想加入抽奖声音，本来打算使用了TMediaPlayer控件来播放音乐。最后发现可以直接使用WINDOWS为我们提供的API函数来播放音乐，方法如下：首先需要在uses部分加入mm...

最近在做个抽奖程序，想加入抽奖声音，本来打算使用了TMediaPlayer控件来播放音乐。最后发现可以直接使用WINDOWS为我们提供的API函数来播放音乐，方法如下：首先需要在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;

更多文章推荐