Bilgisayarın ses kartını kontrol etme

Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

Dim i As Long

i = waveOutGetNumDevs()

If i > 0 Then 
      MsgBox "Bilgisayarınızın ses kartını var"      
Else
      MsgBox "Bilgisayarınızın ses kartını yok veya yüklenmemiş"      
End If
 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

bilgisayarın ses kartını kontrol etme