各位哥哥们好,我想给窗口加个背景音乐,怎么实现他的循环播放呢,下面是程序的代码。
begin
MediaPlayer1.FileName:='f:\播放器3\1.mp3';//将歌曲地址给MEDIAPLAYERMediaPlayer1.Open;
MediaPlayer1.Play;//播放歌曲
end;procedure TForm1.N7Click(Sender: TObject);
begin
MediaPlayer1.FileName:='f:\播放器3\2.mp3';//将歌曲地址给MEDIAPLAYERMediaPlayer1.Open;
MediaPlayer1.Play;//播放歌曲
end;procedure TForm1.N8Click(Sender: TObject);
begin
mediaplayer1.Pause
end;
begin
MediaPlayer1.FileName:='f:\播放器3\1.mp3';//将歌曲地址给MEDIAPLAYERMediaPlayer1.Open;
MediaPlayer1.Play;//播放歌曲
end;procedure TForm1.N7Click(Sender: TObject);
begin
MediaPlayer1.FileName:='f:\播放器3\2.mp3';//将歌曲地址给MEDIAPLAYERMediaPlayer1.Open;
MediaPlayer1.Play;//播放歌曲
end;procedure TForm1.N8Click(Sender: TObject);
begin
mediaplayer1.Pause
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货