怎样检测声卡？

Question

api函数：waveOutGetNumDevs ，给你一个VB的范例先：声明：
Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long
例子：
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "系统安装声卡"
Else
MsgBox "系统无声音卡"
End If

Answer 1

Delphi范例：var
  i:integer;
begin
  i := waveOutGetNumDevs;
  If i > 0 Then
    showmessage('系统安装声卡')
  Else
    showmessage('系统无声音卡');
end;运行前需要首先在uses中加入mmsystem