如何显示CD的声轨，分数和秒数？

有一种简易方法：

//新建一个定时器并把本代码放到OnTimer事件中：

uses MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Trk, Min, Sec: Word;
begin
  with MediaPlayer1 do
  begin
    Trk:= MCI_TMSF_TRACK(Position);
    Min:=MCI_TMSF_MINUTE(Position);
    Sec:=MCI_TMSF_SECOND(Position);
    Label1.Caption:=Format('%.2d',[Trk]);
    Label2.Caption:=Format('%.2d:%.2d',[Min,Sec]);
  end;
end;

本代码将显示出声轨和时间。

转载于:https://www.cnblogs.com/myamanda/articles/1571797.html