PlaylistDropDown.ahk

こっちにも問題がある

;PlaylistDropDown.ahk
;08/04/09作成
;iTunesのプレイリスト一覧をドロップダウンリストで表示

;問題点
;・文字化けが回避できない


;#NoTrayIcon
;「COM Helper - AutoHotkey Community」
#Include CoHelper.ahk
;#EscapeChar '

;初期化
CoInitialize()
iTunesApp := ActiveXObject("iTunes.Application")
LibrarySource := Invoke(iTunesApp, "LibrarySource")
Playlists := Invoke(LibrarySource, "Playlists")
;プレイリストの数取得
Count := Invoke(Playlists, "Count")
;プレイリストの数だけループ
Loop, %Count%
{
 Item := Invoke(Playlists, "Item", A_Index)
 ;名前取得
 Name := Invoke(Item, "Name")
 ;属性取得
 SpecialKind := Invoke(Item, "SpecialKind")
 ;フォルダじゃなかった場合
 If SpecialKind <> 4
 {
  ;リストに追加
  List = %List%%Name%|
 }
}
;ドロップダウンリスト作成
Gui, Add, DropDownList, , %List%
;表示
Gui, Show
;以下解放
Release(Item)
Release(Playlists)
Release(LibrarySource)
Release(iTunesApp)
CoUninitialize()
return

GuiClose:
ExitApp

#EscapeChar使っても無理
どうしようもない

「プレイリスト名を列挙する - C# - iTunes COM 覚え書き(1)」
参考にさせてもらいました