Ses Kartının Olup Olmadığını Denetlemek

Aşağıdaki kodları modüle kopyalayın

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Aşağıdaki kodları formunuza kopyalayın

Private Sub Form_Load()
Dim I As Integer
I = waveOutGetNumDevs()
If I > 0 Then
MsgBox "Sisteminizde Ses Dosyaları Çalınabilir."
Else
MsgBox "Sisteminizde Ses Kartı Yok. Ses Dosyaları Çalınamaz."
End If
End Sub