软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 编程开发 > delphi编程 > Delphi实现背景音乐播放的示例代码

Delphi实现背景音乐播放的示例代码

最近在做个抽奖程序,想加入抽奖声音,本来打算使用了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;

出处:http://blog.yourtion.com/?p=1620

    相关阅读
    网友评论