delphi編程實現檢測聲卡存在

如果你是做一些多媒體播放器之類的程序時，為了完善系統的容錯性，就必須用到一些檢測系統的功能，其中檢測聲卡是否存在就是一個問題，下列程序幫你忙，首先需要在uses部分加入mmsystem ，接著在窗體創建時檢測聲卡：

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
i := auxGetNumDevs();
if i<= then
label1.Caption :=系統沒有發現聲卡;
end;