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 ;

查看更多关于Delphi实现背景音乐播放 代码的详细内容...