怎样控制音箱的左右两个声道的音量？(50分)

procedure SetVolume(left,right:integer);
var leftv,rightv:integer;
begin

   leftv:=left;
   rightv:=right;
   mmsystem.waveOutSetVolume(0,leftv+rightv*65536);
end;



procedure GetLeftVolume;
var allvolume,leftv,rightv:integer;
begin

  waveoutgetvolume(0,@allvolume);
  leftv:=allvolume and $0ffff;
  rightv:=(allvolume and $0ffff0000) div $10000;
  FTempLeft:=leftv;
  FTempRight:=rightv;
end;


procedure GetRightVolume;
var allvolume,leftv,rightv:integer;
begin

  waveoutgetvolume(0,@allvolume);
  leftv:=allvolume and $0ffff;
  rightv:=(allvolume and $0ffff0000) div $10000;
  FTempLeft:=leftv;
  FTempRight:=rightv;
end;