Windows Gesamtlautstärke ändern

[hathor]

Zitat von Julian M.:

Sooo,

habe nun eine Lösung

Lautstärke regeln funktioniert prima,

nur das Stummschalten funktioniert leider nicht ganz sauber, dafür funktioniert das wieder auf laut schalten mit dem selben Befehl. Keine Ahnung warum, ist für mich aber auch nicht so wichtig.

Ich hänge ein Beispielprojekt an.

Die Buttons Mute und Unmute haben keine Wirkung bei WIN8.1.
Verschiebe doch einfach den Slider mit den Buttons.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 // endpointvolume.SetMute(true,nil);
  trackbar1.tag:= trackbar1.Position; // speichert alte Position
  trackbar1.Position:= 0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 //   endpointvolume.SetMute(false,nil);
   trackbar1.Position:= trackbar1.tag;
end;