Get the Aux line volume  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 09/05/01

Tip accessed 424 times

 


  • Add MMSystem in the uses of your form
  • Put a TTimer (Timer1) and put this code in its OnTimer event:


     procedure TForm1.Timer1Timer(Sender: TObject);
     var
       Volumen : DWord;
       Izq,Der : Word;
     begin
       auxGetVolume(WAVE_MAPPER,@Volumen);
       {Left Channel}
       Izq:=Volumen and $ffff;
       {Right channel}
       Der:=Volumen shr 16;
       Caption:= 'Volumen linea Aux. Izq:'+
                 IntToStr(Izq)+
                 ' Der:'+
                 IntToStr(Der);
     end;
    



    For change the volume, you must be use a call to auxSetVolume


    Updated at 09/05/2001 (Const WAVE_MAPPER)