//声明:midiOutGetErrorText( mmrError: MMRESULT; {错误号} lpText: PChar; {缓冲区} uSize: UINT {缓冲区大小}): MMRESULT; {成功返回 0; 失败再返回错误号, 可能的错误是:}MMSYSERR_BADERRNUM = 9; {错误号超界} //举例: 本文共 304 字，大约阅读时间需要 1 分钟。
//声明:midiOutGetErrorText( mmrError: MMRESULT; {错误号} lpText: PChar; {缓冲区} uSize: UINT {缓冲区大小}): MMRESULT; {成功返回 0; 失败再返回错误号, 可能的错误是:}MMSYSERR_BADERRNUM = 9; {错误号超界} //举例: 转载于:https://my.oschina.net/hermer/blog/320510