WinAPI: midiInOpen - 打开 MIDI 输入设备

提示:
因为其中的回调函数是在中断时间内访问的, 必须在 DLL 中; 要访问的数据都必须是在固定的数据段中; 除了
PostMessage
timeGetSystemTime
timeGetTime
timeSetEvent
timeKillEvent
midiOutShortMsg
midiOutLongMsg
OutputDebugString 外, 也不能有其他系统调用.

---

//声明:
midiInOpen(
  lphMidiIn: PHMIDIIN; {用于返回设备句柄的指针; 之后再调用其他函数应该使用这个句柄}
  uDeviceID: UINT;     {设备ID; 不可以指定为常量 MIDI_MAPPER = UINT(-1);}
  dwCallback: DWORD    {回调函数地址或窗口句柄; 若不使用回调机制, 设为 nil}
  dwInstance: DWORD    {给回调函数的实例数据; 不用于窗口}
  dwFlags: DWORD       {打开选项}
): MMRESULT;           {成功返回 0; 可能的错误值见下:}

MMSYSERR_BADDEVICEID = 2;  {设备ID超界}
MMSYSERR_ALLOCATED   = 4;  {指定的资源已被分配}
MMSYSERR_NOMEM       = 7;  {不能分配或锁定内存}

//打开选项 dwFlags 的可选值:
CALLBACK_NULL     = $00000000; {当 dwCallback 是 nil 时指定}
CALLBACK_WINDOW   = $00010000; {当 dwCallback 是窗口句柄时指定}
CALLBACK_FUNCTION = $00030000; {当 dwCallback 是函数指针时指定}

//如果选择窗口接受回调信息, 可能会发送到窗口的消息有:
MM_MIM_OPEN      = $3C1;
MM_MIM_CLOSE     = $3C2;
MM_MIM_DATA      = $3C3;
MM_MIM_LONGDATA  = $3C4;
MM_MIM_ERROR     = $3C5;
MM_MIM_LONGERROR = $3C6;

//如果选择函数接受回调信息, 可能会发送给函数的消息有:
MIM_OPEN      = MM_MIM_OPEN;
MIM_CLOSE     = MM_MIM_CLOSE;
MIM_DATA      = MM_MIM_DATA;
MIM_LONGDATA  = MM_MIM_LONGDATA;
MIM_ERROR     = MM_MIM_ERROR;
MIM_LONGERROR = MM_MIM_LONGERROR;


//举例: