Mega Code Archive
Get information of playing track
<![CDATA[
Title: Get information of playing track
Use MCI_TMSF_MINUTE, MCI_TMSF_SECOND and MCI_TMSF_TRACK structures, if you want to get some information about playing sound track.
This example use Timer component and MCI_TMSF_MINUTE structure for getting count of seconds of small playing file.
procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
FileName:='Test.wav';
Open;
Play;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Min: Real;
begin
Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position);
Label1.Caption:='Seconds - '+FloatToStr(Min/4);
end;
]]>