//声明:
midiInMessage(
  hMidiIn: HMIDIIN; {设备句柄}
  uMessage: UINT;   {消息}
  dw1: DWORD        {消息参数}
  dw2: DWORD        {消息参数}
): MMRESULT;          {函数成功返回发送的消息}

//举例:

相关文章: