如何获取Audio CD音轨的实际长度 ( 积分: 50 )

如何获取Audio CD音轨的实际长度
不要用控件，直接用代码编程如何获取Audio CD音轨的实际长度。
换句话说，就是如何获取Audio CD音轨的信息。

如何获取Audio CD音轨的实际长度
不要用控件，直接用代码编程如何获取Audio CD音轨的实际长度。
换句话说，就是如何获取Audio CD音轨的信息。

普通audio cd
文件应该是 pcm格式的

type
f=record
hour:byte;
min:byte;
sec:byte;
notuse:byte;
end;


cdplayer:=tmediaplayer.create(self);
cdplayer:=tmediaplayer.CreateParented(handle);

cdplayer.devicetype:=dtcdaudio;
cdplayer.TimeFormat:=tftmsf;
cdplayer.Shareable:=false;



with f(cdplayer.position)do

begin

CDnum:=hour;
times:=min*60+sec;
end;