How To Check If A Soundcard Is Installed

Use this code to verify if a soundcard is installed in your system

 

uses mmsystem;  

...  

function Soundkarte:Boolean;  
begin  
  Result := WaveOutGetNumDevs >0;  
end;