请问如何检测机器是否已经安装了声卡？

如题，最好给个小例，谢谢

解决方案 »

  1.   

    uses mmsystem; 
    function SoundCardExist:boolean;beginresult:=WaveOutGetNumDevs >0;end;
      

  2.   

    检测声卡．（转贴，没有试过）
    uses mmsystem; 
    function SoundCardExist:boolean;beginresult:=WaveOutGetNumDevs >0;end;
     
      

  3.   

    转dfw
    Fyx (2001-4-29 12:21:00)  
    你是用什么方法检测的？试试以下方法：uses ..., mmsystem; 
    function Soundkarte:Boolean; 
    begin 
      Result := WaveOutGetNumDevs > 0; 
    end;
     
      

  4.   

    MessageBeep()
    如果放的是一个WAV文件..那一定有声卡..
      

  5.   

    function TMyClass.SoundDeviceFound: Boolean;  uses  mmsystem; 
    begin
      Result := WaveOutGetNumDevs >0;
    end;
      

  6.   

    郁闷
    只有WaveOutGetNumDevs可用
    auxGetNumDevs不行
      

  7.   

    确实是猛料里面的资料检测声卡
    uses mmsystem;
    function SoundCardExist:boolean;begin  result:=WaveOutGetNumDevs >0;end;
      

  8.   

    猛料是What ?  ----  我也要问。
      

  9.   

    呵呵，无所谓抄不抄，我到现在为止80％的东西都是抄来的，会抄是门学问的说学DELPHI没有猛料怎么可以呢？？？http://www.soulan.com/kingron/delphi/Delphitips.chm隆重推荐