Системная громкость

[ЧИЖ]

Как прочитать и как изменить значения системного регулятора громкости а желательно даже всех регуляторов (передние, задние, саб, и т д)?

[Alex21]

http://programmersforum.ru/showthrea...light=MMSystem

[mutabor]

Управление системным микшером

uses MMSystem;

var leftcn, rightcn: word; 

function GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean;
 var
   WaveOutCaps: TWAVEOUTCAPS;
   Volume: DWORD;
 begin
   Result := False;
   if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
     if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
     begin
       Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR;
       LVol   := LoWord(Volume);
       RVol   := HiWord(Volume);
     end;
 end;

 function SetWaveVolume(const AVolume: DWORD): Boolean;
 var
   WaveOutCaps: TWAVEOUTCAPS;
 begin
   Result := False;
   if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
     if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
       Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR;
 end;

procedure vol_set;
 var
   LVol: Word;
   RVol: Word;
 begin
   LVol := leftcn;  // max. is 65535
  RVol := rightcn;  // max. is 65535
  SetWaveVolume(MakeLong(LVol, RVol));
 end;

procedure vol_get;
 var
   LVol: DWORD;
   RVol: DWORD;
 begin
   if GetWaveVolume(LVol, RVol) then
   begin
     leftcn := LVol;
     rightcn := RVol;
   end;
 end;

[CronEtc]

Регулировка громкости системы

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);
waveOutSetVolume(hWO, vol);
waveOutClose(hWO);
end;

вот так можно вызвать эту процедуру к примеру:

SetVolume(14000,14000);