Lenguaje de programación Borland Delphi
Añadiremos un botón en un formulario. En el USES del formulario pondremos "MMSystem". En el evento click del botón pondremos:
procedure TFormUtilidades.Button1Click(Sender: TObject);
begin
If waveOutGetNumDevs > 0 then
showmessage('Sí hay tarjeta de sonido')
else
showmessage('No hay tarjeta de sonido')
end;
Publicado el: 2003-10-15