Windows Gesamtlautstärke ändern

[Julian M.]

Hallo,
ich möchte mit meinem Lazarus die Gesamtlautstärke eines Audiogerätes ändern können..habe schon einige Lösungen für Delphi gefunden (mmsystem, Taudiovolume etc.)

Leider funktioniert keine der Lösungen in Lazarus und es fehlt mir an Wissen, um es passend für Lazarus zu ändern..

Gibt es vllt. schon eine Lösung für Lazarus ? Wenn nein, könnte mir Jemand etwas für Lazarus übersetzen ?

Danke+Gruß Julian

der linke Regler ist gemeint
http://res2.windows.microsoft.com/re...fcdc556_31.jpg

[jaenicke]

Da sich das mit Vista stark geändert hat, müsste es auch eine neuere Lösung sein. Eine mmsystem Lösung würde dir nichts bringen...

Aber es gibt nur wenige Anwendungsfälle, 8n denen eine Anwendung diesen Zugriff wirklich braucht... bist du sicher, dass du das unbedingt brauchst?

[hathor]

.....

[Julian M.]

Ja ich brauche es unbedingt, möchte einen Ton über integrierte Notebooklautsprecher ausgeben und sicherstellen, dass dieser in jedem Fall auch zu hören ist..


Ich habe für Delphi schon eine Lösung mit Beispielprojekt gefunden welche unter Windows 7 problemlos funktioniert, ich werde sie heut Abend mal hier verlinken.

Gruß Julian

[hathor]

Öffne einfach den WINDOWS-Lautstärke-Mixer:

Delphi-Quellcode:

if Win32MajorVersion > 5 then
      ShellExecute(0,nil,PChar('sndvol.exe'),'-d0 -r','',SW_SHOWNORMAL) else
      ShellExecute(0,nil,PChar('sndvol32.exe'),'','',SW_SHOWNORMAL);

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

[hathor]

Zitat:

Zitat von hathor (Beitrag 1309228)

Öffne einfach den WINDOWS-Lautstärke-Mixer:

Delphi-Quellcode:

if Win32MajorVersion > 5 then
      ShellExecute(0,nil,PChar('sndvol.exe'),'-d0 -r','',SW_SHOWNORMAL) else
      ShellExecute(0,nil,PChar('sndvol32.exe'),'','',SW_SHOWNORMAL);

Parameter -f öffnet nur die Gesamtlautstärke:

Delphi-Quellcode:

ShellExecute(0,nil,PChar('sndvol.exe'),'-f','',SW_SHOWNORMAL);

Ein Click auf das Lautsprechersymbol öffnet das Eigenschaftenfenster.

[hathor]

Zitat:

Zitat von Julian M. (Beitrag 1309388)

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;