Delphi MediaPlayer 音量控制（学习笔记）

要控制MediaPlayer的音量，方法一测试可行，但有一个缺点，如果有多个MediaPlayer，无法单独控制，方法二可以单独控制，Delphi7测试通过。

方法一：

//音量控制
procedure TForm1.TrackBar1Change(Sender: TObject);
var
t,v:Longint;
begin
// if a=0 then Exit;
t:=TrackBar1.Position;
v:=(t shl 8)or(t shl 24);
waveOutSetVolume(0,v);
end;

procedure tform1.trackbar1changer (sender:tobject);//左声道
var 
t,v:longint;
begin
t:=trackbar1.postion;
wavoutgetvolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
wavoutsetvolume(0,v);
end;

procedure tform1.trackbar2changer (sender:tobject);//右声道
var t,v:longint;
begin
t:=trackbar2.postion;
wavoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
wavoutsetvolume(0,v);
end;

//获得当前音量值
procedure TForm1.FormCreate(Sender:TObject);
var
v:longint;
begin
waveOutGetVolume(0,@v);
TrackBar2.Position:=hi(v);
TrackBar3.Position:=hi(v shr 16);
if hi(v)>hi(v shr 16) then
  TrackBar1.Position:=h