【转】delphi播放背景音乐

//播放.MP3文件: 

uses
  mmsystem;

//開始播放: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww',nil, 0, 0); 
MCISendString('PLAY WW', nil, 0, 0); 
MCISendString('CLOSE ANIMATION', nil, 0, 0); 
end; 

//停止播放 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww', nil, 0, 0); 
MCISendString('STOP ww', nil, 0, 0); 
MCISendString('CLOSE ANIMATION', nil, 0, 0); 
end;