Track aus Itunes auslesen

[easteregg]

herzlichen dank
für alle die das auch mal schnell brauchen

Delphi-Quellcode:

function ItunesSong(): string;
var
  iTunesApp: OLEVariant;
begin
  // iTunes Objekt erzeugen
  iTunesApp := CreateOleObject('iTunes.Application');
  if not VarIsNull(iTunesApp) then
     begin
      result := iTunesApp.CurrentTrack.Artist +' - '+ iTunesApp.CurrentTrack.Name;
     if not VarIsNull(iTunesApp) then iTunesApp := Unassigned;
  end;
end;