Delphi 多媒体（Tmediaplayer 4）

CD音频（CD Audio）

TMediaPlayer播放CD音频相当简单。要放CD，只需简单地改变DeviceType属性为dtCDAudio即可，并点击Play按钮（或调用Play方法）。

掌握CD音频设备程序设计最困难的是用于CD中不同的时间格式。用户将使用TMSF（time, minutes, seconds, frames）的时间格式来获取某一特定音轨的信息或设置当前位置为某一个特定音轨。例如：下面的代码中将格式化字符串并得到当前音轨内播放的位置。

var  Time: Integer;  Track: Integer;  Minutes: Integer;  Seconds: Integer;  TimeStr: string; begin   if MediaPlayer.Mode <> mpPlaying then     Exit;   Time    := MediaPlayer.Position;   Track   := mci_TMSF_Track(Time);   Minutes := mci_TMSF_Minute(Time);   Seconds := mci_TMSF_Second(Time);   TimeStr := Format('Track Time: %2.2d:%2.2d', [Minutes, Seconds]);   lbl1.Caption := 'Track: ' + IntToStr(Track);   lbl2.Caption := TimeStr;