Текущий архив: 2007.06.10;
Скачать: CL | DM;

Вниз

Как узнать названия установленных звуковых карт?   Найти похожие ветки 

← →
Alex_C ©   (2006-03-15 09:03) [0]

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

---

← →
_SuN_   (2006-09-24 18:40) [1]

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

---

← →
Turbid ©   (2006-09-27 23:08) [2]


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 проблем быть не должно.

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.10;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.05 c