Главная страницаОбратная связьКарта сайта

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

Оформил: 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить имена всех исходящих MIDI устройств", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info