type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
num:uint;
i:Cardinal ;
midi:MIDIOUTCAPS;
mhr:MMRESULT ;
begin
num:=midioutGetNumDevs;
if (num=0) then
begin
showmessage('no device');
exit;
end;
for i:=0 to num-1 do
begin
mhr:=midiOutGetDevCaps(i,@midi,sizeof(midi));
case mhr of
MMSYSERR_BADDEVICEID:
showmessage('bad');
MMSYSERR_INVALPARAM:
showmessage('invalid');
MMSYSERR_NODRIVER:
showmessage('nodriver');
MMSYSERR_NOMEM:
showmessage('nomem');
MMSYSERR_NOERROR:
begin
showmessage('The Driver version is'+midi.szPname );
end;