Тема
:
Индикатор уровня звука.
Показать сообщение отдельно
#
21
22.02.2007, 15:37
KING
Прохожий
Регистрация: 21.02.2007
Сообщения: 4
Репутация:
10
Вот простой пример изменения громкости
procedure TForm1.TrackBar1Change(Sender: TObject);
var v:integer;
begin
v := TrackBar1.Position;
v := v + (v shl 16);
waveOutSetVolume(WAVE_MAPPER,v);
end;
// Значение TrackBar1.Max должно быть 65535
KING
Посмотреть профиль
Отправить персональное сообщение для KING
Отправить Email для KING
Найти все сообщения от KING