检测声卡存在

如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：
procedure TForm1.FormCreate(Sender: Tobject);
var I:Integer;
begin
I := auxGetNumDevs();
if I<=0 then
label1.Caption :='系统没有发现声卡';
end;

 

---

 

 uses mmsystem;
....
 if WaveOutGetNumDevs > 0 then
   ShowMessage('发现声卡')
 else
   ShowMessage('没发现声卡')
....