如何在程序运行过程中添加背景音乐？

Question

巨简单！请各位高手指点！

Answer 1

uses
  MMSystem;procedure TForm1.FormCreate(Sender: TObject);
begin
  sndPlaySound(pChar(sSoundFile),snd_async);
end;

Answer 2

方法如下：首先需要在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;

Answer 3

firstshine(黑里透红)老大，你给的代码是一直循环播放的吗？

Answer 4

我想用mediaplayer循环播放mp3的话应该怎么设置？

Answer 5

playsound('msg.wav',0,SND_ASYNC);//异步方式。

Answer 6

uses
  MMSystem;playsound('bk.wav',0,SND_ASYNC+SND_Loop+SND_SYNC);

Answer 7

音乐文件是否能整合在.EXE文件中去哪？？而不是调用外部文件？