Как регулировать громкость и баланс из программы?

[BV]

Добрый день (вечер, ночь, утро).
Мне очень нужно сделать изменение громкости (всей системы) и баланса звука из программы. Подскажите, как это сделать самым простым способом (т.е. с минимумом API функций).

Исходный код какого-нибудь медиа плеера (где есть громкость, время воспроизведения и т.д.) был бы очень кстати

[Scuder]

API-Guide:

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

'Example submitted by Danjel Nyberg
'It needs a textbox (Text1) and two command buttons (Command1, Command2)
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
Private Sub Command1_Click()
    Dim a, i As Long
    Dim tmp As String
    a = waveOutGetVolume(0, i)
    tmp = "&h" & Right(Hex$(i), 4)
    Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
    Dim a, i As Long
    Dim tmp, vol As String
    vol = Text1
    tmp = Right((Hex$(vol + 65536)), 4)
    vol = CLng("&H" & tmp & tmp)
    a = waveOutSetVolume(0, vol)
End Sub

RTFM!

[BV]

2 Scuder

Нда... вопрос я уже давно решил, а тему не удалил

Но так или иначе спасибо.