Delphi 静音 左右声道音量控制

代码说明：

Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 v:longint; 　　begin 　　 waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位） 　　 trackbar1.Position:=hi(v);//设置左滑块的正确位置 　　 trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置 　　end;