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

[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