itunes_mon.hsp

sample\comobj\itunes_mon.hsp » Plain Format

	;	iTunesを使う
	;	http://developer.apple.com/sdk/itunescomsdk.html
	title "iTunes monitor"
	screen 0,320,60:sysfont 17:objsize 120,20:pos 188,10
	newcom iTunes, "iTunes.Application"
	button gosub "play",*i_play
	button gosub "pause",*i_pause
*main
	track  = iTunes("CurrentTrack")
	redraw 0:syscolor 15:boxf
	color 0,0,0:pos 8,8
	mes "Now Playing :"
	mes ""+track("Name")+"\n("+track("Artist")+")"
	redraw 1:wait 300:delcom track:goto *main
*i_play
	iTunes->"Play"
	return
*i_pause
	iTunes->"Pause"
	return