| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать названия установленных звуковых карт? [D7, WinXP]

Alex_C ©   (2006-03-15 09:03:00) 

С помощью ф-ции waveOutGetNumDevs я получаю кол-во установленных звуковых карт. А как узнать их названия, что выводятся в программах?

---

Turbid   (2006-09-27 23:08:00) [1]


program InitSound;

uses
 Windows, Messages, MMSystem, SysUtils;

var
 NumDevs, i: Integer;
 Caps: MIXERCAPS;

begin
 WriteLn('InitMixerDevs by Turbid');
 WriteLn;
 NumDevs := mixerGetNumDevs;
 if NumDevs <> 0 then
   for i := 0 to NumDevs - 1 do
   begin
     mixerGetDevCaps(i, @Caps, SizeOf(Caps));
     WriteLn(IntToStr(i) + ': ' + Caps.szPname);
   end;
 WriteLn;
 WriteLn('Number of mixer devices: ' + IntToStr(NumDevs));
 ReadLn;
 
end.


Компилировал в FPC, но и с Delphi проблем быть не должно.

---

_SuN_   (2006-09-24 18:40:00) [2]

MMRESULT waveOutGetDevCaps (uSeviceID : UINT; pwoc : LPWAWEOUTCAPS; cbwoc : UINT);

---

Наверх