如果你是做一些多媒體播放器之類的程序時(shí)，為了完善系統(tǒng)的容錯(cuò)性，就必須用到一些檢測(cè)系統(tǒng)的功能，其中檢測(cè)聲卡是否存在就是一個(gè)問(wèn)題，下列程序幫你忙，首先需要在uses部分加入mmsystem ，接著在窗體創(chuàng)建時(shí)檢測(cè)聲卡：
procedure TForm1.FormCreate(Sender: Tobject);
var I:Integer;
begin
I := auxGetNumDevs();
if I<=0 then
label1.Caption :='系統(tǒng)沒(méi)有發(fā)現(xiàn)聲卡';
end;

---

uses mmsystem;
....
if WaveOutGetNumDevs > 0 then
ShowMessage('發(fā)現(xiàn)聲卡')
else
ShowMessage('沒(méi)發(fā)現(xiàn)聲卡')
....

總結(jié)

以上是生活随笔為你收集整理的检测声卡存在的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。