Звук в Delphi

[Xaker_Two]

Всем привет! я решил сделать для своей игрушки простенький "звуковой" движок. Он будет работать с wav-ками, и основной проблемой для меня было воспроизведение сразу множества звуков но решить не составило труда. пока из всего моего творения получается плеер и я решил сделать регулировку громкости. Сделал и заметил что контроль звука выходит за пределы проги! Можно ли как-то от этого избавится или так и должно быть?? вот код(тут правда для понта припаял регулировщика звука для каждого уха отдельно и так сказать зеркальное отражение их статусов друг от друга)

uses MMSystem;
...
procedure TForm1.Timer1Timer(Sender: TObject);
var
Rvol,Lvol:DWORD;
begin
Rvol:=TrackBar1.Position*655;
Lvol:=TrackBar1.Position*655;
if TrackBar2.Position>100 then Rvol:=Rvol div 100 *(100-(TrackBar2.Position-100));
if TrackBar2.Position<100 then Lvol:=Lvol div 100 *(100-(100-TrackBar2.Position));
WaveOutSetVolume(WAVE_MAPPER,MakeLong(Lvol,Rvol));
Label4.Caption:=inttostr(TrackBar1.Position)+'%';
if TrackBar2.Position<100 then Label3.Caption:='L='+inttostr(100-(100-TrackBar2.Position))+'%00I=Я';
if TrackBar2.Position>100 then Label3.Caption:='L=I00%'+inttostr((100-(TrackBar2.Position-100))mod 10)+inttostr((100-(TrackBar2.Position-100))div 10)+'=Я';
if TrackBar2.Position=100 then Label3.Caption:='L=I00%00I=Я';
end;

[waleri]

Сообщение от Xaker_Two

контроль звука выходит за пределы проги!

Что это значит?
Кроме того, уровень каждого канала находится в пределах от 0 до 65535.

[Serge_Bliznykov]

Что это значит?

я думаю, что автор имел в виду, что изменив громкость в своей программе, она оказывается изменённой во всех остальных приложениях ОС...

[VIK_aka_TOR]

тема в которой меняется звук только в приложении (для Windows 7)...

[Xaker_Two]

Сообщение от waleri

Кроме того, уровень каждого канала находится в пределах от 0 до 65535.

Посмотрите формулу чуточку повнимательнее! там помоему написано TrackBar1.Position*655т.е. максимальная громкость отстает от максимальновозможной на 35(100*655=65500)!

Что я имел ввиду: я имел ввиду как сказано ниже что звук регулируется во всей системе НО ползунок громкости звука в настройках Громкость в трее не меняет позиции притом это влияет даже на браузеры а не только на плееры!, т.е. глобально!!!

[Xaker_Two]

Я кажется понял почему только для семерки короч на хрюшке этого не сделать... по крайне мере этими способами!