[Delphi] Scroll i głośność

0

Ej, pomóżcie mi... Jak za pomocą scrolla ustawić głośność?
Wiem, że jest w faq, ale ta instrukcja:

if ScrollBar1.Position = 100 then WaveOutSetVolume(0, $FFFFFF)
else WaveOutSetVolume(0, ScrollBar1.Position*1000);

po prostu przestawia balans.. Czyli wycisza prawy głośnik o 100%. Trzeba później ustawiać przez ustawienia głośności... Co zroobić?

0

Dolne slowo parametru do glosnosc L, gorne R

Czyli np $f000f000 - to oba kanaly dosc glosno

$40524052 - oba dosc cicho

$ffff8000 prawy na full, lewy na pol

itd

MSDN:

MMRESULT waveOutSetVolume(
HWAVEOUT hwo,
DWORD dwVolume
);
Parameters
hwo
Handle to an open waveform-audio output device. This parameter can also be a device identifier.
dwVolume
New volume setting. The low-order word contains the left-channel volume setting, and the high-order word contains the right-channel setting.

0

Czyli LoWord i HiWord + pomoc delphi

1 użytkowników online, w tym zalogowanych: 0, gości: 1