Sprawdzanie, czy zainstalowano kartę muzyczną

Aby po kliknięciu przycisku Button1 na etykiecie został wyświetlony komunikat określający, czy zainstalowano kartę muzyczną należy wywołać funkcję Windows API waveOutGetNumDevs(), która zwraca liczbę zainstalowanych kart muzycznych i jeżeli liczba ta jest równa zero to nie zainstalowano żadnej karty, a gdy jest różna od zera to karta jest zainstalowana (funkcja ta wymaga biblioteki mmsystem.h, którą dodajemy na początku pliku formularza):

Unit1.cpp
#include <mmsystem.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (waveOutGetNumDevs() > 0)
      Label1->Caption = "Znaleziono kartę dźwiękową!";
   else
      Label1->Caption = "Nie znaleziono karty dźwiękowej!";
}