ACM控件，如何设置音量？

Question

采集和播放用的是ACM语音控件，可找到该控件设置音量的方法，各位指点下

Answer 1

procedure TForm1.TrackBar1Change(Sender: TObject);
var v,t,p:longint;
begin
  t:=trackbar1.Position;
  waveoutgetvolume(0,@v);
  v:=v and $0000ffff or (t shl 24);
  waveoutsetvolume(0,v);
  t:=trackbar1.Position;
  waveoutgetvolume(0,@p);//@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，做到在调节左声道的时候，不改变右声道
  p:=p and $ffff0000 or (t shl 8);
  waveoutsetvolume(0,p);
end;