Ultimate Pack  hot! Image Editor  new! Runtime Fusion Form Designer Object Inspector Print Suite Pro Commented Image Delphi Toys WinDowse Delphi Bonus TMS Scripter Studio Form Designer VB Form Designer .NET ...get more... for Delphi.NET, C#, VB.NET for Delphi VCL, BCB 3-6

	WinAPI Online Unix Manual Pages MegaDetailed.NET in3steps.com cdtrrracks.com new!   greatis.blogspot.com

To change sound volume, use WaveOutSetVolume function. A value of 0xFFFF represents full volume, and a value of 0x0000 is silence.

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyWaveOutCaps: TWaveOutCaps;
  Volume: Integer;
begin
  Volume:=Scrollbar1.Position;
  if WaveOutGetDevCaps(
    WAVE_MAPPER, 
    @MyWaveOutCaps, 
    sizeof(MyWaveOutCaps))=MMSYSERR_NOERROR then
      WaveOutSetVolume(WAVE_MAPPER, MakeLong(Volume, Volume));
end;

Related topics

Get sound volume

For more

Win32 Programmer's Reference

Download source