//播放.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;