有关于音量控制.(100分)

如何做windows里面的音量控制?
例如,一个滚动条控件做左右声道控制,一个滚动条控件做音量控制大小。

这是我搜集的，能用

//音量控制
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);
wavoutsetvolume(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.



函数说明：

uses MMSystem;

waveOutSetVolume
第一个参数是波形文件输出设备标识符；
第二个参娄是音量大小。这是一个32位的整数，低16位表示左声道的音量，
高16位表示右声道的音量。

waveOutGetVolume
第一个参数是波形文件输出设备标识符；
第二个参数是一个32位整数的指针。


可以用auxoutsetvolume(id:integer,volume:dword);具体使用方法请查阅DELPHI帮助，WIN32SDK.HLP。 其中ID是设备代号,我在实际编程中发现ID随着机器的不同而不同,但是他可以直接控制各种设备的音量,你可以用不同的ID试一试(ID一般在1~8之间)，音量设置方法wjiachun好象没错

12.
{　　已经有很多文章介绍过控制总音量的方法，但控制左右声道音量的方法却很少有文章介绍，本人介绍一种用Delphi实现控制左右声道音量的妙法，希望能给你的程序添彩。
　　一、调节全部音量
　　1．先在窗体中添加一个trackbar控件，可通过改变它的位置来调节音量，在trackbar1的属性中，我们把Max属性修改成255，改成这个值是为了便于进行二进制的音量调节操作。
　　2．为了调用一个Windows函数，在uses子句里加上Mmsystem。
　　3．为trackbar1的Onchange事件编写如下代码：
　　procedure Tform1.TrackBar1change(Sender:Tobject);
　　var t，v：longint；// t的最大值为8位的二进制：11111111；用v来表示音量的大小，这是个32位的整数，高16位表示右声道的音量，低16位表示左声道的音量
　　begin

　　t：=trackbar1.Position；//得到Trackbar的位置，可用这个值来表示音量的大小
　　v：=(t shl 8) or (t shl 24)；//将t左移8位、24位
　　waveoutsetvolume(0，v)；//设置音量
　　end；
　　二、分别控制两个声道的方法
　　1．控制左声道
　　procedure Tform1.TrackBar1change(Sender:Tobject);
　　var t，v：longint；
　　begin

　　t：=trackbar1.Position；
　　waveoutgetvolume(0,@v)；//@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，做到在调节左声道的时候，不改变右声道
　　v：=v and ＄ffff0000 or (t shl 8)；//数字前面加＄表示是十六进制数字
　　waveoutsetvolume(0，v)；
　　end；
　　2．控制右声道
　　procedure Tform1.TrackBar2change(Sender:Tobject);
　　var t，v：longint；//它的原理同上
　　begin

　　t：=trackbar2.Position；
　　waveoutgetvolume(0,@v)；
　　v：=v and ＄0000ffff or (t shl 24)；
　　waveoutsetvolume(0，v)；
　　end；
　　三、设置滑块的初始位置
　　1．程序开始执行时，缺省情况下，Trackbar的位置在0，但我们希望程序开始执行时，这两个滑块能自动得到当前的音量，而处在相应的位置。
　　procedure TForm1.FormCreate(Sender: TObject);
　　var v：longint；
　　begin

　　waveoutgetvolume(0,@v)；//得到现在音量
　　trackbar1.Position：=hi(v)；//设置左滑块的正确位置
　　trackbar2.Position：=hi(v shr 16)；//设置右声道滑块的正确位置
　　end；
　　注：函数hi(v)的作用为：返回一个16位无符号整数的高8位值。如果v为32位，则高16位自动被忽略了。
　　2．只使用高8位时，可使调节效果更明显。
　　3．对波形文件可以用waveoutgetvolume函数，对cd文件可以用auxgetvolume函数。
　　注：以上程序均在Delphi 5.0，Windows 98SE下调试通过。}

找相关的媒体播放API不就得了！

需要掌握的相关位运算内容：

1.
1111111100000000
高8位是：11111111
低8位是：00000000

2.
1111111100000000 和 11111111进行“或”操作的结果
应该是：
1111111100000000
or
0000000011111111
-----------------
1111111111111111

3.
1111111100000000左移(shl)8位后是：00000000
1111111100000000右移(shr)8位后是：11111111

4.
11111111 00000000 11111100 00000000
进行hi函数得到的结果是：11111100(高16位自动忽略)
注：函数hi(v)的作用为：返回一个16位无符号整数的高8位值。如果v为32位，则高16位自动被忽略了。

5.
一个8位数 11110011，一个16位数1111111100000111
要将16位数的高8位变成 11110011 ，而不改变16位数的低8位：
var
v:longint;//8位数 11110011
t:longint;//16位数1111111100000111
begin

t:=t and 0X00ff;//高8位清零，低8位不变,变成00000000 00000111
v:=v shl 8;//将8位数左移，变成16位数：1111001100000000
t:=t or v;//进行或运算
{
00000000 00000111
or 11110011 00000000
--------------------
11110011 00000111
}

end

gz

请楼上的注意一下。
我说的是用一个横的trackbar控件做左右声道大小的控制,一个竖的trackbar控件做音量大小的控制。
跟系统控制音量一样的。
回答出了，可以再加分。

hxy2002，控制左右声道关键是控制高低16位，用一个trackbar和两个
trackbar没什么区别。一个trackbar也可以从中间分成两个。
既然基本原理已经有了，自己一定能琢磨出来的。

我就是琢磨不出来。
所以才上网来问一问啊。
请多多指教。

DFW以前有答案，自己先搜一下

请巴格达多多帮忙。

顶

我不懂，就进来看看，顺便问一下。有谁知道怎么能看到图象。

wu wu wu

难道有没人知道吗？

u p

接受答案了.