Saber si hay instalada una tarjeta de sonido  

Enviado Por: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Fecha: 07/05/00

Truco accedido 123 veces

 


  • Aņade MMSystem enel uses de tu 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;