Systemlautstärke verändern + Mute deaktivieren

[Zacherl]

Hey,

ich möchte über Delphi die Lautstärke vom Wave Ausgangs und die allgemeine Lautstärke des Systems kontrollieren. (Lautstärke und Wave im Windows Mixer).
Zudem soll fals aktiviert bei beiden Kanälen das Mute deaktiviert werden.

Einige Beispiele habe ich schon gefunden, allerdings ist es nie genau das was ich suche. Hat da jemand noch was für mich?

Gruß

[bitsetter]

Hi,

keine Ahnung, was du nun gefunden hast und für welches OS. Lautstärkeregler für LineIn Haupt Lautstärke Regeln Tonausgabe komplett abschalten Unter Vista funktioniert angeblich ja nicht mehr alles.

[chest3rs]

Hallo Zacherl,

Delphi-Quellcode:

uses
  MMSystem;

procedure SetVolumeMute(Enabled: Boolean);
var
  hMix : HMIXER;
  mxlc : MIXERLINECONTROLS;
  mxcd : TMIXERCONTROLDETAILS;
  mcdb : MIXERCONTROLDETAILS_BOOLEAN;
  mxc  : MIXERCONTROL;
  mxl  : TMIXERLINE;
  intRet, nMixerDevs : Integer;
begin
  nMixerDevs := mixerGetNumDevs();
  if (nMixerDevs < 1) then Exit;
  intRet := mixerOpen(@hMix,0,0,0,0);
  if (intRet = MMSYSERR_NOERROR) then
  begin
    mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
    mxl.cbStruct        := SizeOf(mxl);
    intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);
    if (intRet = MMSYSERR_NOERROR) then
    begin
      FillChar(mxlc, SizeOf(mxlc),0);
      mxlc.cbStruct      := SizeOf(mxlc);
      mxlc.dwLineID      := mxl.dwLineID;
      mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
      mxlc.cControls     := 1;
      mxlc.cbmxctrl      := SizeOf(mxc);
      mxlc.pamxctrl      := @mxc;
      intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);
      if (intRet = MMSYSERR_NOERROR) then
      begin
        FillChar(mxcd, SizeOf(mxcd),0);
        mxcd.cbStruct    := SizeOf(TMIXERCONTROLDETAILS);
        mxcd.dwControlID := mxc.dwControlID;
        mxcd.cChannels   := 1;
        mxcd.cbDetails   := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
        mxcd.paDetails   := @mcdb;
        mcdb.fValue      := Ord(Enabled);
        intRet := mixerSetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);
        if (intRet <> MMSYSERR_NOERROR) then ShowMessage('SetControlDetails Error');
      end else ShowMessage('GetLineInfo Error');
    end;
    intRet := mixerClose(hMix);
  end;
end;

[Grisu_Lychen]

Hallo die letzte Antwort ist zwar schon einige Zeit her aber ich versuch es trotzdem mal.
Der Code oben funktioniert super aber ich würde gern nicht den Kanal vom Delphi Programm muten sondern einen anderen bzw. mehrere andere.
Ziel meines Proggies soll sein:
Bei einem Alarm Musik und ähnliches abschalten und Funk aufschalten.

Hab schon Stunden gegoogelt und immer wenn ich dachte ich hab es musst ich feststellen das es doch nicht für Win7 ist.

Ich hoffe ihr könnt mir helfen.

LG Grisu