Получить имена всех исходящих MIDI устройств

Delphi , Мультимедиа , Видео

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure GetMIDIOutDevices(Devices: TStrings);
 var
   i, DNum: Integer;
   Caps: TMIDIOUTCAPSA;
 begin
   DNum := MIDIOutGetNumDevs;  // Number of Devices 
  for i := 0 to DNum - 1 do     // Query Devicenames 
  begin
     MIDIOutGetDevCaps(i, @Caps, SizeOf(TMIDIOutCapsA));
     Devices.Add(string(Caps.szPname));
   end;
 end;

 // Usage: 

var
   MIDIDevices: TStringList;

 begin
   MIDIDevices := TStringList.Create;
   try
     GetMIDIOutDevices(MIDIDevices);
     // Do anything with the device name list 
  finally
     MIDIDevices.Free;
   end;
 end;

Получение имен всех исходящих MIDI устройств в Delphi выполнено с помощью процедуры GetMIDIOutDevices, которая использует функцию MIDIOutGetNumDevs для получения количества устройств и MIDIOutGetDevCaps для извлечения наименований.

Комментарии и вопросы

:: Главная :: Видео ::