再生中の曲の歌詞を表示

まあ簡単にできた

#NoTrayIcon
#Include CoHelper.ahk

CoInitialize() 

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

;歌詞.txtがあるフォルダ名
Path = C:\Program Files\Multimedia\MUSIC\lyric
;パス作成
FilePath = %Path%\%Name%.txt
;ファイル読み込み
FileRead, test, %FilePath%

;表示
Msgbox, %test%

Release(Current) 
Release(iTunesApp) 
CoUninitialize()
return

本当は歌詞のあるフォルダをC:\Program Files\マルチメディア\MUSIC\lyricに入れてたんだけど「チ」で文字化け・・・
やっぱり日本語パスは使うものじゃない