Громкость звука Опции

[sheka]

Как изменить громкость звука?
т.е. чтобы эффект был такой же как и при изменении звука там, возле часов, где динамик нарисован.

Сообщение отредактировано: sheka - 18.12.2009 23:33

[volvo]

Вот это только что у меня отработало:

procedure TForm1.myTrackBarChange(Sender: TObject);
var
  vol: Integer;
  volume: longword;
begin
  vol := myTrackBar.Position; // Изначально задал Position = 32000, myTrackBar.Max = 65535, Min = 0
  volume := vol;
  volume := volume + (volume shl 16); // Чем левее - тем тише звук
  waveOutSetVolume(WAVE_MAPPER, volume);
end;

Это позволит тебе регулировать громкость звука из своего приложения. Код - с "Королевства Дельфи".