' определение наличия звуковой карты
' для работы необходимо добавить:
' TextBox и CommandButton
Private Declare Function waveOutGetNumDevs _
Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
Text1.Text = "Звуковая карта найдена!"
Else
Text1.Text = "Звуковой карты нет!"
End If
End Sub
Private Sub Form_Load()
Form1.Caption = "Проверка наличия звуковой карты"
Text1.Text = ""
Command1.Caption = "Найти"
End Sub
Наличие звуковой карты (1 638 байт)