2007年12月30日

iTunes再生中の曲に埋め込んである歌詞を表示

埋め込みの歌詞があること忘れてた・・・

#NoTrayIcon
#Include CoHelper.ahk

CoInitialize()

iTunesApp := ActiveXObject("iTunes.Application")
;現在のタイトルの情報を取得する
Current := Invoke(iTunesApp, "CurrentTrack")
;歌詞取得
Name := Invoke(Current, "Lyrics")

;表示
Msgbox, %Name%

Release(Current)
Release(iTunesApp)
CoUninitialize()
return
「iTunes COM for Windows SDK 」から探してるんだけどなんでIITTrackからLyricsが取得できるか分からない
オブジェクト指向型ちゃんと勉強しないといけないな