Ob eine Soundkarte vorhanden ist, verrät Ihnen eine API-Funktion:

ERFORDERLICHE OBJEKTE

   keine 

FORM-CODE

   Private Declare Function waveOutGetNumDevs Lib _
      "Winmm.dll" () As Long

   Function Soundkarte()
      Dim Detect As Integer
      Detect = waveOutGetNumDevs()
      Soundkarte = Detect > 0
   End Function
   Private Sub Form_Load()
      If Soundkarte Then
         MsgBox "Soundkarte vorhanden"
      Else
         MsgBox "Keine Soundkarte vorhanden"
     End If
     End
   End Sub

siehe auch

    Soundkarteneinstellungen
    Länge einer Wavedatei ermitteln
    Wavedatei in EXE-Datei integrieren
    Wavedatei abspielen