1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit uSoundMethods;

interface //Interface

uses MMSystem;

function fcnGetWaveVolume: DWord;
procedure pdrSetWaveVolume;

implementation //Implementation

{Liefert Lautstärke (WAVE) zurück
 Min Wert: 0
 Max Wert: 4294967295}
function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
    Volume : DWord;
begin
  result:=0;
  if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
       MMSYSERR_NOERROR then begin
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
      WaveOutGetVolume(WAVE_MAPPER, @Volume);
      Result := Volume;
    end;
  end;
end;

{Setzt Lautstärke (WAVE) fest
 Min Wert: $00000000    Die ersten 4 Bits für linken Lautsprecher
 Max Wert: $FFFFFFFF    Die zweiten 4 Bits für rechten Lautsprecher
                        Links 0%, Rechts 100%: Volume := $0000FFFF
}
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;
end.