playmidi.asm

来自「驾驶员考试系统,汇编编写,qq332779423」· 汇编 代码 · 共 23 行

.data?

MidDeviceID			dd ?

.code

PlayMidiFile proc hWin:DWORD,NameOfFile:DWORD
	LOCAL	mciOpenParms:MCI_OPEN_PARMS,mciPlayParms:MCI_PLAY_PARMS

	mov		eax,hWin        
	mov		mciPlayParms.dwCallback,eax
	mov		mciOpenParms.lpstrDeviceType,CTXT("Sequencer")
	mov		eax,NameOfFile
	mov		mciOpenParms.lpstrElementName,eax
	invoke mciSendCommand,0,MCI_OPEN,MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,ADDR mciOpenParms
	mov		eax,mciOpenParms.wDeviceID
	mov		MidDeviceID,eax
	invoke mciSendCommand,MidDeviceID,MCI_PLAY,MCI_NOTIFY,ADDR mciPlayParms
	ret  

PlayMidiFile endp