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
"John Clark" <jo**@johnNOTHISBITclark.me.uk> wrote in message
news:lu**********@newreader.ukcore.bt.net...
"John Clark" <jo**@johnNOTHISBITclark.me.uk> wrote in message
news:hY**********@newreader.ukcore.bt.net... 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?
