Изменение громкости

[Пахан]

Нужно изменить общую громкость звука в системе.

Нашёл фунцию waveOutSetVolume, но мне так и не удалось с ней разобраться.

Объясните, плиз, как пользоваться этой функцией, или может это вообще не для того? тогда что надо использовать?

[Aleksej]

Код: Выделить всё

Private Declare Function waveOutSetVolume Lib "winmm.dll" ( _
                                   ByVal uDeviceID As Long, _
                                   ByVal dwVolume As Long) As Long

Private Type ulLong
    HiWord As Integer
    LoWord As Integer
End Type

Private Type uvLong
    n As Long
End Type

Private ulVol As ulLong
Private uvVol As uvLong

Public Function SetVolume(Volume As Long)

    ulVol.HiWord = (Volume And &H7FFF&) - (Volume And &H8000&)
    ulVol.LoWord = (Volume And &H7FFF&) - (Volume And &H8000&)
   
    LSet uvVol = ulVol
   
        Call waveOutSetVolume(0, uvVol.n)
End Function


Максимальное значение параметра Volume = &HFFFF&.