procedure TForm1.Timer1Timer(Sender: TObject);//触发timer2 begin if mediaplayer1.Length=MediaPlayer1.Position then begin MediaPlayer1.Close; Timer1.Enabled:=False; Timer2.Enabled:=True; end; end;procedure TForm1.Timer2Timer(Sender: TObject); //播放间隔 begin MediaPlayer1.Close; MediaPlayer1.FileName:='XXX'; MediaPlayer1.Open; MediaPlayer1.Play; Timer1.Enabled:=True; Timer2.Enabled:=False; end;
例:
list.m3u的内容为:
2003625zgrdaycws.mp3
200422115481957201.mp3
358446181.mp3
46.mp3
bg.mp3
d丁香花.mp3
hzcbdnvhai.mp3
lidia.mp3
lsadm.mp3
prettyboy.mp3
ShowMeTheMeaningOfBeingLonely.MP3
wsw.mp3
爱断情伤.mp3
爱情的海洋
爱情的海洋.mp3
爱在深秋.mp3
暗香.mp3
白桦林.mp3
白色恋歌.mp3
白月光.mp3
被动.mp3
被遗忘的时光.mp3
别说我的眼泪你无所谓.mp3
沉默是今.mp3
楚歌.MP3
当前情.mp3
第一次爱的人.mp3
东风破.mp3
动起来-郭富成.mp3
都是夜归人.mp3
断点.mp3
对你太在乎.mp3
放爱一条生路.mp3
风花雪月.mp3
后来.MP3
皇后大道东.mp3
火柴天堂.mp3
江南.mp3
旧情绵绵.mp3
卡萨布兰卡(1).mp3
卡萨布兰卡.mp3
蓝莲花.mp3
浪漫樱花.mp3
老鼠爱大米.mp3
泪海.mp3
冷雨夜.mp3
里约热内卢.mp3
两只蝴蝶.mp3
刘若英-很爱很爱你.mp3
蔓延(1).mp3
蔓延.mp3
美丽心情.mp3
魔镜.mp3
那片海.mp3
你最珍贵.mp3
七月七日晴.mp3
千金难买.mp3
情.mp3
情非得已.MP3
情人.mp3
情已逝.mp3
舍不得把眼睛睁开.mp3
生如夏花.mp3
十年.mp3
时光.mp3
算你狠.mp3
太多.mp3
听说.MP3
完美生活.mp3
忘不了.mp3
忘记.mp3
吻别.mp3
我不是黄蓉.mp3
我们的爱.mp3
下次如果离开你.mp3
向天再借五百年.mp3
小小的太阳.mp3
心不设防.mp3
因为寂寞.mp3
有没有那么一首歌会让你想起我.mp3
曾经最美.mp3
最熟悉的陌生人.mp3
这就是mediaplay的播放列表
这个文件完成可以用memo控件打开
MediaPlay.FileName:=Memo.Lines[i];
...你就这么播放就可以的吧?或者得传入文件的全路径的
并在MD的一首歌放完时加入
sleep(想要的时间)
begin
if mediaplayer1.Length=MediaPlayer1.Position then
begin
MediaPlayer1.Close;
Timer1.Enabled:=False;
Timer2.Enabled:=True;
end;
end;procedure TForm1.Timer2Timer(Sender: TObject); //播放间隔
begin
MediaPlayer1.Close;
MediaPlayer1.FileName:='XXX';
MediaPlayer1.Open;
MediaPlayer1.Play;
Timer1.Enabled:=True;
Timer2.Enabled:=False;
end;