怎样取得系统当前的音量数值

用多媒体支持库中的：

调用格式： 〈逻辑型〉 对象．取音量 （左声道音量，右声道音量）

英文名称：GetVolume

获取左声道和右声道的音量，成功返回真，失败返回假。本命令为初级对象成员命令。

参数<1>的名称为“左声道音量”，类型为“整数型（int）”，提供参数数据时只能提供变量。该参数接收左声道的音量。

参数<2>的名称为“右声道音量”，类型为“整数型（int）”，提供参数数据时只能提供变量。该参数接收右声道的音量。

所支持 *** 作系统列表： Windows

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

Private Sub Command1_Click()

Dim stemp As String

Dim vol As Long

waveOutGetVolume 0, vol

stemp = "&h" &Right(Hex$(vol), 4)

Print stemp

End Sub

说明：win7下不能用了

---