Ich habe
diesen Thread gefunden auf meiner Suche und das auch schnell umsetzen können.
Mittels folgendem Code kann ich nun Interpret, Album und Songname auslesen:
Delphi-Quellcode:
function CurrentTrack():string;
var iTunesApp: OLEVariant;
begin
// iTunes Objekt erzeugen
iTunesApp := CreateOleObject('iTunes.Application');
if not VarIsNull(iTunesApp) then begin
Result:=iTunesApp.CurrentTrack.Artist+' - '+iTunesApp.CurrentTrack.Album+' - '+iTunesApp.CurrentTrack.Name;
if not VarIsNull(iTunesApp) then iTunesApp:=Unassigned;
end;
end;
Ich würde aber gerne noch mehr Informationen (z.B. die Länge des Tracks) auslesen. Gibt es irgendwo eine Liste, welche Infos da alle auslesbar sind und wie? Habe irgendwie nix gefunden
MfG Z4ppy