API Ses kartı var mı yok mu?

Yapılan programlarda sistemin ses kartını destekleyip desteklemediğini bilmek bizim için iyi olabilir.

Aşağıdakı kodu fare ile copy yapın ve MS Visual Basic içinde herhangi bir modüle paste edin

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


Aşağıdaki kodu ise formunuzun load eventi olarak dizayn edin.


Private Sub Form_Load()
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "Your system supports a sound card.", vbInformation, "Sound Test"
Else
MsgBox "Your system cannot play Sound Blaster Files.", vbInformation, "Sound Test"
End If
End Sub