//声明:
midiInMessage(
hMidiIn: HMIDIIN; {设备句柄}
uMessage: UINT; {消息}
dw1: DWORD {消息参数}
dw2: DWORD {消息参数}
): MMRESULT; {函数成功返回发送的消息}
//举例:
转载于:https://my.oschina.net/hermer/blog/320358