|
Hallo, wie kann ich eine Info bekommen wenn der Sound zu ende ist ??
cmd_open db 'open Musik\Test6.mp3 type MPEGVideo Alias MP3',0 ;Test6.mp3 = Win
cmd_play db 'play MP3',0 ;Test.mid geht auch
cmd_Play_end db 'play MP3 type MPEGVideo Alias MP3',0
cmd_close db 'close MP3',0 ;Test.wav geht auch
NoText db '',0
XText db 'Ende des Lied',0
menu main_menu
menuitem 'Play MP3',My_PlayMP3
menuseparator
menuitem 'Ende',IDM_QUITTER,MFR_END
;menuitem '&A Propos..',IDM_ABOUT,MFR_END
icon main_icon,icon_data,'icons\HARALD01.ico'
MP3Lauf: cmp [Brucke],0
JNE LesAus
IDM_PLAYMP3 = PaintGraf
invoke mciSendString,cmd_close,XText,0,0
invoke mciSendString,cmd_open,NoText,0,0
invoke mciSendString,cmd_play,NoText,0,0
MOV [Brucke],65536
invoke mciSendString,cmd_Play_end,XText,0,0
;invoke mciSendString,cmd_Play_end,XText,timeEndPeriod
|