громкость звука

[BOO]

как программой менять громкость
1) общую
2) громкость звука в программе
я проигрываю через api (playsound)

[Aleksej]

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

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 GetVolume() As Long

    Call waveOutGetVolume(0, uvVol.n)
        LSet ulVol = uvVol
       
    GetVolume = ulVol.LoWord And Max
End Function
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


[hCORe]

Для управления проигрыванием файлов в программе лучше пользуйся
функциями mciExecute и mciSendString (и для изменения громкости тоже).

А для регулирования общей громкости - соответственно waveOutGetVolume (получение) и waveOutSetVolume (изменение).

Вот их объявления:

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

Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

[Mikle]

Для управления проигрыванием файлов в программе лучше пользуйся
функциями mciExecute и mciSendString (и для изменения громкости тоже).

Как функциями mciExecute и mciSendString менять громкость?