|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/5/16 11:30:16 |
标题: |
|
加入我的收藏 |
楼主: |
朋友,你知道下面这个程序为什么有问题吗? var i:Integer; begin i := auxGetNumDevs(); if i<=0 then label1.Caption :='系统没有发现声卡'; end; 我发现不管系统有没有装声卡,总是会说没声卡 不知道有没有哪位朋友详细说一下
----------------------------------------------
以静制动 |
作者: |
cjrb (Thinking In 魂) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/5/16 11:34:00 |
1楼: |
试试这个看看 uses mmsystem; function SoundCardExist:boolean;
begin
result:=WaveOutGetNumDevs >0;
end;
----------------------------------------------
充电..........
|
作者: |
boy (阿門) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/5/16 18:03:41 |
2楼: |
uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject); begin if WaveOutGetNumDevs > 0 then ShowMessage('已經安裝了聲卡') else ShowMessage('沒有安裝聲卡'); end;
----------------------------------------------
|
|