Lautstärke andere Programm veringern, ohne die des eigenen

[KodeZwerg]

Zitat von Alallart:

Die Antwort: "Windows Mixer Api" ist so allgemein

Ich hatte mich ja bereits verbessert und Entschuldige mich hiermit nochmals für eine falsch erste Antwort, das war wirklich nur für alles oder nichts Methodik.

Zitat von Alallart:

Ich suche mit den mir gegebenen Stichworten

Dann hättest Du auch was gefunden, MfPack zum Beispiel auf Sourceforge. Da hast du eine komplette Delphi Komponente die genau das machen kann was Du willst. Fremde Prozesse stumm schalten.

Zitat von Alallart:

Der Tipp war sehr allgemein

In meinem dritten Post gab ich Dir Links zu exakt den zwei Api's die Du brauchst, EWeiss sagte Dir wonach Du suchen solltest, da kam sogar ein Link mit einem kompletten Source Code!

Zitat von Alallart:

und wie so oft gibt es da nicht einen fertigen Befehl

Delphi-Quellcode:

uses
  MMDeviceApi, ActiveX, AudioPolicy;
var
  DeviceEnumerator: IMMDeviceEnumerator;
  DefaultDevice: IMMDevice;
  SessionManager: IAudioSessionManager;
  SessionControl: IAudioSessionControl;
begin
  if Succeeded(CoCreateInstance(CLSID_MMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, DeviceEnumerator))
    and Succeeded(DeviceEnumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, DefaultDevice))
    and Succeeded(DefaultDevice.Activate(IID_IAudioSessionManager, CLSCTX_INPROC_SERVER, nil, IUnknown(SessionManager)))
    and Succeeded(SessionManager.GetAudioSessionControl(nil, 0, SessionControl)) then
    SessionControl.SetDisplayName('Mein Programm', nil);

ein Befehl der Dir eine Schnittstelle "SessionControl" anbietet, gefunden auf Stackoverflow.

[Alallart]

Zuerst vielen Dank an alle.

@KodeZwerg

Ich hoffe nicht, dass du mich falsch verstanden hast, natürlich bin ich auch für die "allgemeine Antwort" dankbar. Aber das alles ist keine fertige Funktion, sondern viel Stoff, wenn man es nicht mit Copy&Paste nutzen will. Also mein Hinweis, dass ich noch drei Wochen vor der Lösung stehe war nicht böse gemeint, sondern sollte heißen, dass ich mich da einarbeiten muss.

Wie auch immer, inzwischen weiß schon mal wie man allgemein die Lautstärke regelt. Ist schon etwas.


@jaenicke, EWeiss

Wenn man in der Systemsteuerung von Windows 7 geht, und da auf Sound, gibt es im Register Kommunikation die Möglichkeit andere Programme in der Lautstärke um 50 oder 80% zu reduzieren, wenn zB das Telefin klingelt. Um das geht es mir.

Ich dachte zuerst daran die Gesamt-Lautstärke um 50% zu reduzieren und/oder meinen Programm dann lauter zu machen, aber wenn das Programm abstürzt, bleibt die Einstellung so. Der Methode von jaenicke beschreibt aber eine Funktion die die anderen Programme allgemein leiser macht, während das eigene Programm normal laut bleibt.

[EWeiss]

Zitat:

Der Methode von jaenicke beschreibt aber eine Funktion die die anderen Programme allgemein leiser macht, während das eigene Programm normal laut bleibt.

Das wäre doch die Lösung
Musst du halt noch ein bisschen basteln

PS:
Allerdings musst du die aktuelle Lautstärke der Anwendungen natürlich erfassen und beibehalten um sie später zurück zu setzen.
Ist zumindest besser falls deine Anwendung abstürzt.

gruss

[OLDIE1950]

Zitat von Alallart:

Wenn man in die Systemsteuerung geht, und da auf Sound, gibt es im Register Kommunikation die Möglichkeit andere Programme in der Lautstärke um 50 oder 80% zu reduzieren, wenn zB das Telefon klingelt. Um das geht es mir.

Delphi-Quellcode:

// uses WinApi.ShellApi,
procedure RunControlPanelApplet(AppletFileName: string);
begin
  ShellExecute(0, 'open', PChar('rundll32.exe'),
    PChar('shell32.dll,Control_RunDLL '+AppletFileName), nil, SW_SHOWNORMAL);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
   RunControlPanelApplet('mmsys.cpl,,3');
end;

[jaenicke]

Ihm geht es aber darum wie er selbst den Alarm als Kommunikationsstream ausgibt um in diese Kategorie zu kommen, nicht darum die Einstellungen dafür aufzurufen.

[KodeZwerg]

Zitat von Alallart:

Ich hoffe nicht, dass du mich falsch verstanden hast

Alles ist gut. Es gibt viele Wege die ans Ziel führen. Ich wünsche Dir viel Erfolg, bei welchen Weg auch immer Du abzweigst! Hauptsache das Endprodukt stimmt, ob nun über eine Kommunikation-Api oder ob du Dritt-Prozesse leiser/Stumm schaltest, vom Resultat beides das gleiche für mich

[EWeiss]

Damit geht's aber nicht mit der Methode von @jaenicke aber egal..
Gib irgendeinen Prozessnamen in die Edit ein der Musik wieder gibt und teste es.

Du kannst Mute verwenden oder aber das Volumen der anderen Anwendungen selbst verringern.
Ich denke mal nicht das irgendeine Anwendung dadurch abstürzt.
Ist ja am ende nichts anderes als wenn du es von Hand im Tray Mixer selber regelst.

Sind wohl noch ein paar kleine dinge drin die ich noch berücksichtigen muss. (Nur ein Spiel Projekt)
Aber von der Basis her stimmt's schon.
Win7! (Ich glaube für Win10 wird ein nicht dokumentiertes Interface verwendet daher kann ich nicht garantieren das es da funktioniert)

Zitat:

gibt es im Register Kommunikation die Möglichkeit andere Programme in der Lautstärke um 50 oder 80% zu reduzieren, wenn zB das Telefin klingelt.

Es ist aber nicht genau das was du gerne möchtest.

gruss

[Alallart]

Ja, dein Programm macht es so wie ich es mir vorgestellt habe. Es senkt anscheinend allgemein die Lautstärke, bis auf das ausgesuchte Programm.

[KodeZwerg]

getting-peak-meters-and-volume-settings-for-all-apps-and-audio-devices-on-the-system, da wird einem in CPP gezeigt wie es geht.
Im Anhang ist der komplette CPP Sourcecode. Vielleicht bekommt den ja jemand unter Delphi zum laufen dann wäre alles geklärt.

edit
Und wenn alle Stricke reißen, nircmd ist ein kleines Konsolen Programm was auch wie hier how-to-control-the-volume-level-of-specific-application-from-command-line-on-windows beschrieben eingesetzt werden kann um Zugriff auf Lautstärke eines bestimmten Prozesses zu erlangen.