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

�