Как подзвучить событие в Вин10?
В 98-й Винде было написано так:
Код:
Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Тогда думаю проблема в путях приведу два примера Windows10 + Office2016
Код:
Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound32 "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound32 "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Код:
Declare Function sndPlaySound _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Например
Код:
Sub process()
mPlay_wav WorkPath & "Sounds\bip.wav"
End Sub
mPlay_wav WorkPath & "Sounds\bip.wav"
End Sub
Код:
Sub process()
sndPlaySound mPlay_wav WorkPath & "Sounds\bip.wav", 0&
End Sub
sndPlaySound mPlay_wav WorkPath & "Sounds\bip.wav", 0&
End Sub
Если бы знать, что PtrSafe и есть ответ. Спасибо. С этим волшебным словом заработало))
Ладно кто по взрослому и без дураков , а для "чайников за затылок 32-bit" и гемора очень меньше.