Lautstärke andere Programm veringern, ohne die des eigenen

[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;