.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