在Delphi中控制应用程序音量

发布时间：2020-12-15 04:08:36 所属栏目：大数据来源：网络整理

导读：我甚至不确定这是否适合一个问题,但这只是一个问题.我有一个用Delphi XE编写的互联网广播播放器,使用 BASS库进行音频流和播放.该应用程序需要在Windows XP,Vista和7下运行. Bass可以很容易地控制全局音量,但是没有设置静音功能,一般来说,根据每个应用程序控

我甚至不确定这是否适合一个问题,但这只是一个问题.我有一个用Delphi XE编写的互联网广播播放器,使用 BASS库进行音频流和播放.该应用程序需要在Windows XP,Vista和7下运行.

Bass可以很容易地控制全局音量,但是没有设置静音功能,一般来说,根据每个应用程序控制音量更好.

Bass还可以轻松控制“通道”(流)的音量,但同样没有静音,这也不是适合每个应用程序的控制. (Windows混音器中的应用程序音量控制不受影响.)

据我所知,对于Vista及以上版本,我需要ISimpleAudioVolume和/或IAudioEndpointVolume,但是找不到这些的Delphi实现.所以问题的一部分是,它作为第三方库存在吗？

第二部分是什么是在XP上控制音量和切换静音(系统范围或每个应用程序)的正确方法,这些接口不可用？

解决方法

使用此简单代码将其在我的机器上运行的主卷静音：

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 100 do
begin
  keybd_event($AE,MapVirtualKey($AE,0),0);
  keybd_event($AE,KEYEVENTF_KEYUP,0);
end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!