[RaggiTech]

كاتب الموضوع : AhmedEssawy

تشغفيل ملفات .WAV

كود :

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long


Public Function Sound(pathfile As String)
SoundPlay = PlaySound(pathfile, 0&, &H1)
End Function
'All you have to do is call Sound, and give dir
'vbcode.com