Know if there is a souncard installed  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 07/05/00

Tip accessed 396 times

 


  • Add MMSystem in the uses of your form


     procedure TForm1.Button1Click(Sender: TObject);
     begin
       If waveOutGetNumDevs > 0 then ShowMessage( 'Hay tarjeta de sonido instalada'+
                                                  #13+
                                                  'There is a soundcard installed')
                                else ShowMessage( 'No Hay tarjeta de sonido instalada'+#13+
                                                  #13+
                                                  'There is not a soundcard installed');
     end;