谁知道关于调整麦克风音量的API函数？？？请叙述详细一些，紧急，谢谢！！！！！！

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.trackbar1changer  (sender:tobject);//左声道  
var  t,v:longint;  
begin  
t:=trackbar1.postion;  
wavoutgetvolume(0,@v);  
v:=v  and  $ffff0000  or  (t  shl  8);  
waveoutsetvolume(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:=hi(v)  
   else  
   TrackBar1.Position:=hi(v  shr  16);  
end;  
 
end.  
 
 
函数说明：  
 
waveOutSetVolume  
第一个参数是波形文件输出设备标识符；  
第二个参娄是音量大小。这是一个32位的整数，低16位表示左声道的音量，  
高16位表示右声道的音量。  
 
waveOutGetVolume  
第一个参数是波形文件输出设备标识符；  
第二个参数是一个32位整数的指针。  
 
 
可以用auxoutsetvolume(id:integer,volume:dword);具体使用方法请查阅DELPHI帮助，WIN32SDK.HLP

Answer 1

用API函数就实现了WAVE文件的总音量控制及左右声道音量分别控制。为了调用Windows函数，先在Uses中加上MMSystem，Delphi提供了调用WaveOutSetVolume 函数的Pascal语言的接口，不信看看MMSystem.pas文件*&^@*<。我编了演示程序，界面如下：
加入三个TrackBar，分别命名为TB_vol，TB_l，TB_r，将Max值设为255（即8位二进制数的最大值），Frequency的值设为10。先看看总音量控制的实现：
procedure TForm1.TB_volChange(Sender: TObject);var
pos,vol:longint;begin
pos:=TB_vol.Position;vol:=(pos shl 8)or(pos shl 24);waveoutsetvolume(0,vol);end;
首先我们得到TrackBar的位置，用这个值来记录音量的大小，第二句转换Windows函数中对应的正确形式，末一句设置音量。WaveOutSetVolume函数有两个参数：第一个参数为波形文件输出设备的标识符，这里的标识符为0。第二个参数为音量的大小，他是一个32位的整数，低16位表示左声道的音量，高16位表示右声道的音量。由于TrackBar只用8位二进制数表示音量，因而先把得到的8位音量值pos左移8位，变成左声到16为中的高8位，然后将pos右移24位，变成右声到16为中的高8位，将两个值进行or运算赋给vol，将vol加给WaveOutSetVolume函数的第二个参数，这样就可以实现同时改变两个声道的音量了。理解上述方法后，分别控制左右声道就不难了，看看左声道的实现：
procedure TForm1.TB_lChange(Sender: TObject);var
pos,vol:longint;begin
pos:=TB_l.Position;waveoutgetvolume(0,@vol);vol:=vol and $ffff0000 or (pos shl 8);waveoutsetvolume(0,vol);end;
由于只修改左声道的值，为了保存右声道的音量，即保存得到音量值pos的高16位，我们将vol和$ffff0000（16进制数）进行or运算，这样，vol的低16位被清零，高16位保持不变，再将低16位左移8位表示新的左声道的音量。右声道同理实现
procedure TForm1.TB_rChange(Sender: TObject);var
pos,vol:longint;begin
pos:=TB_r.Position;waveoutgetvolume(0,@vol);vol:=vol and $0000ffff or (pos shl 24);waveoutsetvolume(0,vol);end;
同时，我们为了程序一运行滑块就能到当前的音量（完善完善嘛），需要在Form的Create事件中加入以下语句：procedure TForm1.FormCreate(Sender: TObject);var
vol:longint;begin
waveoutgetvolume(0,@vol);TB_l.Position :=hi(vol); {设置左声道音量}TB_r.Position :=hi(vol shr 16); {设置右声道音量}end;