真的很失望，难道就没有一个人知道的（如何在录音的同时取出输入音量的大小，有个数字就行）

Question

希望对你有帮助//音量控制 
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.TrackBar2Change(Sender: TObject); 
var 
t,v:Longint; 
begin 
  t:=TrackBar2.Position; 
  waveOutGetVolume(0,@v); 
  v:=v and $ffff0000 or (t shl 8); 
  waveOutSetVolume(0,v); 
end; //右声道控制 
procedure TForm1.TrackBar3Change(Sender: TObject); 
var 
t,v:Longint; 
begin 
  t:=TrackBar3.Position; 
  waveOutGetVolume(0,@v); 
  v:=v and $0000ffff or (t shl 24); 
  waveOutSetVolume(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:=hi(v) 
  else 
  TrackBar1.Position:=hi(v shr 16); 
end;