//声明: midiInGetDevCaps( DeviceID: UINT; {设备 ID} lpCaps: PMidiInCaps; {TMidiInCaps 结构的指针} uSize: UINT {TMidiInCaps 结构的大小} ): MMRESULT; {成功返回 0; 可能的错误值见下:} MMSYSERR_BADDEVICEID = 2; {设备ID超界} MMSYSERR_NODRIVER = 6; {没有安装驱动程序} //TMidiInCaps 是 tagMIDIINCAPSA 结构的重定义: tagMIDIINCAPSA = record wMid: Word; {商家 ID} wPid: Word; {产品 ID} vDriverVersion: MMVERSION; {版本号; 高位字节是主版本号、低位字节是次版本号} szPname: array[0..MAXPNAMELEN-1] of AnsiChar; {产品名称} dwSupport: DWORD; {设备支持的其他功能} end; //设备支持的其他功能 dwSupport: MIDICAPS_VOLUME = $0001; {支持音量控制} MIDICAPS_LRVOLUME = $0002; {支持左右声道音量控制} MIDICAPS_CACHE = $0004; {支持音色高速缓存} MIDICAPS_STREAM = $0008; {设备直接支持 midiStreamOut}
//举例: