求助，XP系统下的音量控制

Question

我想编写一个程序可以自动将系统（windows xp系统）的音量调至最大，同时取消静音（指原本是钩上了静音选项的话，可以自动去掉静音）的程序，但是在网上找了很久，就是没有找到资料，希望知道的朋友能给个源代码，最好附带有说明，谢谢！！！！

Answer 1

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
'获得音量设备ID
Private Sub Command1_Click()
    Dim a, i As Long    'i为音量值
    a = waveOutGetVolume(0, i)
    
End Sub
设置音量
Private Sub Command2_Click()
    Dim a, i As Long    a = waveOutSetVolume(0, i)
End Sub

Answer 2

API函数肯定可以Waveoutsetvolume 0,&HXXXXYYYYXXXX=左声道
YYYY=右声道值=0 到 FFFF

Answer 3

'看一下这个.
http://community.csdn.net/Expert/topic/3200/3200066.xml?temp=.2178919

Answer 4

可惜这些只能控制音量，不能取消静音，如果在WINDOWS中设置为静音，不将静音取消那控制音量也是没用的吧，不过还是谢谢你们。