//声明:
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}
//举例: