delphi编程实现检测声卡存在

delphi编程实现检测声卡存在2008-04-20如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：

procedure TForm1.FormCreate（Sender: TObject）;
var i:Integer;
begin
i := auxGetNumDevs（）;
if i<= then
label1.Caption :=系统没有发现声卡;
end;