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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Как программно изменять громкость звука 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)