Audiovolume - Balance bzw. Kanal-Lautstärke setzen

[t.roller]

Mit der TWindowsMediaPlayer-Komponente geht das auch:
MUTE, BALANCE, VOLUME.

Delphi-Quellcode:

type
    WMP1: TWindowsMediaPlayer;
...
procedure TForm1.bnMUTEClick(Sender: TObject);
begin
if WMP1.settings.mute then WMP1.settings.mute:=FALSE else WMP1.settings.mute:= TRUE;
end;

procedure TForm1.tbBALANCEChange(Sender: TObject); // TrackBar -10000 to 10000
begin
WMP1.settings.balance:= tbBALANCE.Position;
tbBALANCE.SelStart:= tbBALANCE.Position -500;
tbBALANCE.SelEnd:= tbBALANCE.Position +500;
end;

procedure TForm1.tbVOLUMEChange(Sender: TObject); // TrackBar 0 to 100
begin
WMP1.settings.volume:= tbVOLUME.Position;
tbVOLUME.SelStart:= 0;
tbVOLUME.SelEnd:=  tbVOLUME.Position;
end;