如何用mciSendString API加背景音乐
求例子，百度查了一下都看不懂~~~

uses MMSystem;

procedure TForm1.btn1Click(Sender: TObject);
var
  fName: string;
begin
  fName := 'c:\the_moment';
  begin
    ;
    MCISendString(PChar(Format('OPEN %s TYPE mpegvideo alias ww', [fName])),
      nil, 0, 0);
    MCISendString('PLAY WW', nil, 0, 0);
    MCISendString('CLOSE ANIMATION', '', 0, 0);
  end;
end;

只要注意音乐文件名不要带空格，空格可以用 _ 下划线代替