如何实现trackbar随CD歌曲的进度前进（使用mediaplayer）(180分)

如何用trackbar随每一曲进度前进,在button中编程实现上一曲,下一曲
(用mediaplayer,简单源码) 请多帮助，谢谢

看一下help

trackbar的问题这样解决：得到播放时间（mediaplay可以得到），然后根据这个时间确定
trackbar的最大值（一般用秒），再设置一个定时器，让trackbar每秒前进一次，这样就搞定了。
上一首，下一首就需要在程序运行时取得CD的信息，然后用程序控制播放哪首。
另外有篇文章可以参考：
LID:185281

请问如何检索LID:185281;
如果那位朋友有源码请给我发过来，谢谢！

好象用MediaPlay本身的方法就可以实现，现在在网吧，没有办法帮你查，你自己看看MidiaPlay的帮助吧

LID：185281
得到了当前cd的曲目数，如何得到相应的每一曲的时间，及播放的剩余时间
而且如何选择了相应的曲目就播放？

//sorry sir
//我以前的程序只能将Mediaplayer的播放位置转换成磁道数,已播放分钟,秒数
//相应代码如下,大概解决不了问题
With TMSFRec(CDPlayer.Position)do
{转换成TMSF格式}
begin

CurrentTrack:=Tracks;
{取得目前磁道}
strMinutes:=IntToStr(Minutes);
{目前的分数}
strSeconds:=IntToStr(Seconds);
{目前的秒数}
if Length(strMinutes)<2 then
strMinutes:='0'+strMinutes;
if Length(strSeconds)<2 then
strSeconds:='0'+strSeconds;
ShowTrack;
{显示目前磁道及其长度}
LinkPositionLabel.Caption:=strMinutes+':'+strSeconds;
end;


//but...
//我帮你查了一下资料
//Tmediaplayer有如下属性
//property tracklength(trackNum:integer):integer;
//可以读出曲目长度(我为用过)
//返回值和属性mediaplayer.timeformat有关
//关于mediaplayer.timeformat的说明很长
//我很难打完,不好意思,亲自己查查书
(我在delphi4.0/5.0类参考详解 清华出版 48rmb 中查的-----半礼拜饭钱)

哎

接受答案了.

谢谢陈晨，邮件收到，先加分了