Muting and controlling the volume

[John Clark]

Hello all,

I'm developing an application thats operation requires the volume NOT to be
muted - for notification purposes.

I've had a quick look round and don't seem to be having much luck - has
anyone done this before that can point me in the right direction?

Thanks,

JC

 

[John Clark]

Hello all,

I'm developing an application thats operation requires the volume NOT to
be muted - for notification purposes.

I've had a quick look round and don't seem to be having much luck - has
anyone done this before that can point me in the right direction?

Thanks,

JC

Actually, just muting all or unmuting all would be the biggest help - I'm
guessing this is some sort of API call with winmm?

 

[Dick]

Perhaps (VB6 code):

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As
Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As
Integer, dwVolume As Long) As Integer

Private Sub Command1_Click()
Dim a, i As Long
Dim tmp As String
a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
Text1 = CLng(tmp)
End Sub

Private Sub Command2_Click()
Dim a, i As Long
Dim tmp, vol As String
vol = Text1
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
End Sub