| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Регулятор звуга в проге [D4, D5, D6, D7, Win2k]
Rip © (2003-03-26 13:24:00)Подскажите как регулировать громкость звука из моей программы!
Заранее ПАСИБО!!!
AlexT1000 (2003-03-28 19:26:00) [1]MMRESULT waveOutSetVolume(
HWAVEOUT hwo,
DWORD dwVolume
);
Parameters
hwo
Handle of 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. A value of 0xFFFF represents full volume, and a value of 0x0000 is silence.
////!!!!!!!!!
If a device does not support both left and right volume control, the low-order word of dwVolume specifies the volume level, and the high-order word is ignored.
!!!!!!!!!!!
Intell (2003-03-28 18:51:00) [2]AlexT1000, Прочёл твой ответ, попробовал, но меняется звук только в одной колонке, другая вообще молчит. Что не так?
AlexT1000 (2003-03-26 16:13:00) [3]procedure TFormMain.TrackBar1Change(Sender: TObject);
Var i:dword;
begin
i:=TrackBar1.Position;
i:=byte(i) shl 8 or byte(i);
waveOutSetVolume(0,i);
end;
TrackBar1.Position 0 - 255
i:=byte(i) shl 8 or byte(i); - установка одного уровня громкости для правого и левого динамика
| |
