Uses MMSYSTEM
mciSendString(lpstrCommand CPTR, lpstrReturnString CPTR,
wReturnLength CWORD, hCallback CWORD) CWORD
®MDBU¯®MDNM¯endUses
method run(var eventInfo Event)
mciSendString("open c:\\pdoxwin\\working\\midifile.mid
alias music","" ,0, 0)
mciSendString("open c:\\pdoxwin\\working\\flicfile.flc
alias flic style popup","" ,0, 0)
mciSendString("play music","" ,0, 0)
mciSendString("play flic wait","" ,0, 0)
mciSendString("close flic","" ,0, 0)
mciSendString("close music","" ,0, 0)
endmethod