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

[sheka]

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

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

[volvo]

Это имел в виду: http://www.delphisources.ru/pages/faq/base...ound_value.html ?

[sheka]

а как оно работает? что оно делает? поместил ЛистБокс, кнопку - ничего.
просто еще находил другие, что-то типа такого

uses MMSystem;

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
  if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
       MMSYSERR_NOERROR then begin
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
      WaveOutSetVolume(WAVE_MAPPER, AVolume);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var LeftVolume: Word;
    RightVolume: Word;
begin
  LeftVolume := StrToInt(Edit1.Text);
  RightVolume := StrToInt(Edit2.Text);
  SetWaveVolume(MakeLong(LeftVolume, RightVolume));

но эффекта 0.