怎么让程序有背景音

如何让程序有背景音
如何让程序拥有背景音乐。打开后就会自动播放。程序会封装到自身吗，还是？具体怎么实现？

[解决办法]
PlaySound函数

可以把声源文件做成资源文件编译到程序里
[解决办法]
另外还有bass.dll，可以上网下来使用
[解决办法]
方法如下：首先需要在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;