Как программно изменять громкость звука 2

Автор: Olookin

А мне дpужбан пpитащил видеокассету с каким-то супеpновым фильмом. Сижу, тупо посмотpел на название с каpтинкой, а потом пеpевеpнул и давай искать системные тpебования с мыслью: "А вдpуг не пойдет?"

Выставь на форму 2 тракбара и двигай их. Если у тебя звучит музыка, ты должен услышать изменения громкости правого и левого каналов.

procedure TForm1.TrackBar1Change(Sender: TObject);
var
 s: dword;
 a,b: word;
 h: hWnd;
begin
 a:=trackbar1.position;
 b:=trackbar2.position;
 s:=(a shl 16) or b;
 waveOutSetVolume(h,s);
end;

свойство Max в каждом TrackBar'e должно равняться 65535 (то есть MaxWord)

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 112 • TDictionary Custom Sort 3 302 • Fast Watermark Sources 3 051 • 3D Designer 4 805 • Sik Screen Capture 3 303 • Patch Maker 3 521 • Айболит (remote control) 3 621 • ListBox Drag & Drop 2 980 • Доска для игры Реверси 81 483 • Графические эффекты 3 906 • Рисование по маске 3 216 • Перетаскивание изображений 2 601 • Canvas Drawing 2 722 • Рисование Луны 2 547 • Поворот изображения 2 155 • Рисование стержней 2 155 • Paint on Shape 1 559 • Генератор кроссвордов 2 217 • Головоломка Paletto 1 759 • Теорема Монжа об окружностях 2 203 • Пазл Numbrix 1 678 • Заборы и коммивояжеры 2 049 • Игра HIP 1 273 • Игра Go (Го) 1 220 • Симулятор лифта 1 465 • Программа укладки плитки 1 211 • Генератор лабиринта 1 537 • Проверка числового ввода 1 344 • HEX View 1 484 • Физический маятник 1 351

Как программно изменять громкость звука 2

Похожие по теме исходники