Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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

Получить имена всех исходящих 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;

Статья Получить имена всех исходящих MIDI устройств раздела Мультимедиа Видео может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
03.06.2020 16:45:23/0.0119309425354/2