delphi中media player的用法

Question

我做触摸屏程序，要让背景音乐自动循环播放，怎样设置？

Answer 1

可以进行一个判断，是否endpos 然后进行播放
if mediaplayer1.Position=mediaplayer1.EndPos then
mediaplayer1.Play

Answer 2

想了想 要是就是播放背景音乐的话还只这样来得简单
比实现一个mediaplayer的循环更简单
代码如下：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, MMSYSTEM;
typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);private　{ Private declarations }public　{ Public declarations }end;var　Form1: TForm1;
　implementation
　{$R *.dfm}　procedure TForm1.FormCreate(Sender: TObject);
begin
　SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP);
end;end. 

Answer 3

通过调用SndPlaySound函数，可以在自己的程序中播放声音文件，
指定参数SND_LOOP，就可以实现循环播放声音了。

Answer 4

楼上的方法可以试试，如果只是放一些wav文件的话，用api好
如果非得用mediaplayer的话，就得再用个timer来监视了，那些代码就放到timer的事件中去