Как получить информацию о дорожке аудио-CD?

Code:

uses

mmsystem;

procedure GetInfo(mp: TMediaPlayer);

var

Trk, Min, Sec: word;

begin

with mp do

begin

   Trk := MCI_TMSF_TRACK(Position);

   Min := MCI_TMSF_MINUTE(Position);

   Sec := MCI_TMSF_SECOND(Position);

end;

label1.caption := Format('%.2d/%.2d %.2d:%.2d', [Trk, mp.tracks, min, sec]);

end;

Code:

function IsAudioCD(Drive: char): bool;

var

DrivePath: string;

MaximumComponentLength: DWORD;

FileSystemFlags: DWORD;

VolumeName: string;

begin

Result := false;

DrivePath := Drive + ':\';

if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then

   exit;

SetLength(VolumeName, 64);

GetVolumeInformation(PChar(DrivePath), PChar(VolumeName), Length(VolumeName), nil,

   MaximumComponentLength, FileSystemFlags, nil, 0);

if lStrCmp(PChar(VolumeName), 'Audio CD') = 0 then

   result := true;

end;