Delphi Source Code - How to change the sound cards volume

Code Category

ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Delphi source code for Multimedia >> Change the sound cards volume

Category: Multimedia
Title: Change the sound cards volume
Date added: 15.03.2006
Hits: 4452

uses
  MMSystem;

procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  FillChar(waveF, SizeOf(waveF), 0);
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol := volL + volR shl 16;
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetVolume(14000, 14000);
end;

Related Delphi Source Code:

1. How to use the Microsoft Speech API? (5729 Hits)

2. How to convert a Flash SWF to EXE? (4600 Hits)

3. How to set the Volume in a TMediaplayer? (5393 Hits)

4. How to open and close a certain CD-drive? (3971 Hits)

5. How to play system sounds? (3915 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.