//声明: midiInGetErrorText( mmrError: MMRESULT; {错误号} lpText: PChar; {缓冲区} uSize: UINT {缓冲区大小} ): MMRESULT; {成功返回 0; 失败再返回错误号, 可能的错误是:} MMSYSERR_BADERRNUM = 9; {错误号超界} //举例: