[Delphi 7] Aktualnie odtwarzany utwór w WMP11

Witam.
Jak uzyskać nazwę aktualnie odtwarzanego utworu w Windows Media Player 11? Szukałem, ale niestety, albo źle szukałem, albo nie ma.

zobacz tu ktos pytał o cos takiego

http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21347965.html

Tak, wiem byłem tam, ale żeby zobaczyć odpowiedzi trzeba się zarejestrować, co jest płatne (wbrew napisowi "strat free trial").

zjedz na sam dol tam jest kilka odpowiedzi do tematu i nietrzeba sie rejestrowac

Kurde, nie za wiele umie z tego wywnioskować. Mógłby ktoś to napisać w skróconej i sklejonej w 1 całość wersji?

ShowMessage('odtwarzany plik to: ' + windowsmediaplayer.url);

Z tego to już kompletnie nic nie rozumie. Co to jest "windowsmediaplayer" i co to jest to "url"?

Co do tamtej strony to wykładam się na tym kodzie:

var
  wnd: HWND;
begin
  wnd := FindWindow('WMPlayerApp','Windows Media Player');
  wnd := FindWindowEx(wnd, 0, 'WMPAppHost', nil);
  wnd := FindWindowEx(wnd, 0, 'WMP Skin Host', nil);
  wnd := FindWindowEx(wnd, 0, 'CWmpControlCntr', nil);
  wnd := FindWindowEx(wnd, 0, 'WMPPlaylist', nil);
  wnd := FindWindowEx(wnd, 0, 'ATL:SysListView32', nil);
  if wnd <> 0 then
  begin
   
  end;
end.

A konkretnie tu:

  wnd := FindWindowEx(wnd, 0, 'WMPPlaylist', nil);

Po tym kroku wnd jest puste.