Название песни в медиа плэйере

[yulia]

У меня медиа плэейр воспроизводит песни не с компа, а непосредственно с диска. Как получить название и исполнителя трека? Если открывать с компа через OpenDialog, то понятно.... а так?
Длину трека получаю вот так
M:=MCI_MSF_MINUTE(Player.TrackLengt h[I]);
S:=MCI_MSF_SECOND(Player.TrackLengt h[I]);
А вот название не знаю... ((( подскажите, пожалуйста

[Bigtyoma]

А помоему, там будут названия типа Track1,Track2 и т.д.

[ч0ткий кекс]

Непомню конечно, года 3 назад бросил программировать, по памяти, что-то типа этого
MCI_TMSF_TRACK(TrackNames.Strings[CurrentTrack - 1]);

[yulia]

Сообщение от ч0ткий кекс

Непомню конечно, года 3 назад бросил программировать, по памяти, что-то типа этого
MCI_TMSF_TRACK(TrackNames.Strings[CurrentTrack - 1]);

так пишет, что не знает TrackNames

[ч0ткий кекс]

Откопал у себя:

uses
  MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Trk : Word;
  Min : Word;
  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;

может чем-нибудь поможет

[yulia]

))) спасибо, нам препод точно этот кусок кода дал )))