怎样控制系统音量？

Question

可以使用mci的api函数，具体的代码我手头没有，不过前不久CSDN出的程序员大本营有这个相关的资料。你可以看看

Answer 1

see
http://www.csdn.net/develop/article/13/13835.shtmPublic Function SetVolume(Volume As Long) As Boolean
    Dim RefInt As Long
    SetVolume = False
    RefInt = mciSendString("setaudio NOWMUSIC volume to " & Volume, vbNull, 0, 0)
    If RefInt = 0 Then SetVolume = True
End Function