Wie kann man die Lautstärke mit dem Mediaplayer ändern?

[wroblewski]

Ich hab' das Problem, das ich gerne auf die System-Lautstärkeregelung des mediaplayers zugreifen möchte, es aber nicht hinbekomme! Kann mir vielleicht jemand helfen? Danke!

[Stanlay Hanks]

Guten Abend und herzlich willkommen in der DP! :hello:

In der Forum Suche (hier) hab ich unter [dp]Lautstärke[/dp] einen Link zu dieser Page gefunden: Klick

Ich hoffe, sowas meinst du.

Man liest sich, Stanlay :hi:

[wroblewski]

Vielen Dank! Mußte nur den Aufruf etwas umschreiben damit ich die Lautstärke variabel verändern kann.

Für interessierte:
Alt :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SetMPVolume(MediaPlayer1, 500); 
end;

Neu:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
var lautstaerke, prozent: integer;
begin
 lautstaerke := TrackBar1.Position * 10;
 prozent := lautstaerke div 10;
 LblVol.Caption := IntToStr(prozent)+'%';
 SetMPVolume(MediaPlayer1, lautstaerke);
end;

MFG Wroblewski