17-10-12, 01:09 AM
كاتب الموضوع : AhmedEssawy
هذا الكود يقوم بإخبارك هل يوجد كرت صوت أم لا ، وهو ما قد تستفيد منه في منع أو السماح بتشغيل الأصوات في برنامجك .الكود منقول من المنتدى القديم ..
ضع هذا الكود في الموديل Module :
كود :
Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
كود :
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "بالإمكان تشغيل ملفات الأصوات في جهازك", _
vbInformation, "التأكد من وجود كرت الصوت"
Else
MsgBox "ليس بالإمكان تشغيل ملفات الأصوات في جهازك", _
vbInformation, "التأكد من وجود كرت الصوت"
End If