كود للتأكد من وجود كرت صوت

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته

كيفكم شباب إن شاء الله بخير

جايب اليوم لكم كود جميل جداً و هو كود يقوم بتأكد من وجود كرت شاشة أو لا

إليكم الكود

الكود :

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

Private Sub Form_Load()

i% = waveOutGetNumDevs()
If i% > 0 Then MsgBox "يوجد كرت صوت" Else MsgBox "لا يوجد كرت صوت"

End Sub

انتهى الكود

أتمنى تستفيدوا منه و تبرمجوا

X-Man

.

مشكووووووووووووور على الكود

تحياتي لك

الزعيم