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