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;