首页 相关文章 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...[ 查看全文 ]

2016-02-19 标签:

delphi编程实现播放背景音乐的相关文章

手机页面
收藏网站 回到头部