新手上路.背景音乐问题

Question

谁能教我怎么再一个程序中加入背景音乐啊!!  
 
简单点,要不要使用控件都可以
最好不用  
 
 
步骤说明越详细越好(我是新人之中的新人-_-!!!)  
 
 
谢谢大哥大姐,大叔大  ^^^^^

Answer 1

procedure PlaySoundAA(WavFileName: String);
var
   s: Array[0..79] of char;
begin
{Convert filename to a null-terminated string}
StrPCopy(s, WavFileName);
{Play the sound asynchronously}
sndPlaySound(s, 0); {see mmsystem.hlp for other values}
end;调用：
PlaySoundAA('C:\a.wav');