盒子论坛 v2.1

小弟操作系统win7 用delphi写了一段实时获得声卡主音量的代码调用waveoutgetvolume函数为什么显示的ScrollBar1，ScrollBar2值都是100 用千千静听或者其他播放器播放音乐界面没有任何变化是我那个地方做错了吗？求各位大仙指点
procedure TForm1.Timer1Timer(Sender: TObject);
var vol:longint;
begin
  waveoutgetvolume(0,@vol);
  ScrollBar1.Position :=Hi(vol);  {设置左声道音量}
  edit1.Text:=inttostr(ScrollBar1.Position);
  ScrollBar2.Position:=Hi(vol shr 16); {设置右声道音量}
  edit2.Text:=inttostr(ScrollBar2.Position);
end;

此帖子包含附件:

大小:20.5K

----------------------------------------------
-

作者：

xuchuantao (暗黑天使)	★☆☆☆☆	-
	普通会员

2015/10/3 21:12:39

1楼：

用TAudioVolume吧
----------------------------------------------

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2015/10/5 10:12:55

2楼：

vista 时代已经被抛弃这个函数，还抱着干嘛
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

wanliang (www)	★☆☆☆☆	-
	普通会员

2015/10/5 18:49:37

3楼：

vista 时代已经被抛弃这个函数

请问Win7实时获得主音频控制用的是哪个函数？
----------
----------------------------------------------
-

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2015/10/5 20:11:59

4楼：

额，这个时候，是要给出我的收藏品了
https://social.msdn.microsoft.com/Forums/windowsdesktop/en-US/5ce74d5d-2b1e-4ca9-a8c9-2e27eb9ec058/vista-volume-control-using-delphi-5?forum=windowspro-audiodevelopment
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

wanliang (www)	★☆☆☆☆	-
	普通会员

2015/10/7 23:45:35

5楼：

谢谢sail2000和xuchuantao 原来在WIN7中控制音量是通过控制音量混音器实现，用到的是MMDevApi.pas中的函数

现在依然有一个问题怎样在混合器中控制其他程序音量？
Controlling the volume of other applications
----------------------------------------------
-

作者：

xuchuantao (暗黑天使)	★☆☆☆☆	-
	普通会员

2015/10/8 13:19:41

6楼：

TAudioVolume
----------------------------------------------

信息

登陆以后才能回复