Управление громкостью звука приложения в Delphi

Question

Я даже не уверен, что это вписывается в один вопрос, но это является одной проблемой. У меня есть интернет-радиоприемник, написанный на Delphi XE, используя библиотеку BASS для потоковой передачи и воспроизведения звука. Приложение должно запускаться под Windows XP, Vista и 7.

Бас позволяет легко управлять глобальным томом, но не имеет возможности заглушить звук, и в целом лучше контролировать громкость для каждого приложения.

Бас также упрощает управление громкостью «канала» (потока), но опять же нет никакого отключения, и это тоже не правильное управление для каждого приложения. (Управление уровнем громкости в микшере Windows не изменяется.)

Я понимаю, что для Vista и выше мне нужен ISimpleAudioVolume и/или IAudioEndpointVolume, но не могу найти реализацию Delphi. Итак, одна часть вопроса: существует ли она как сторонняя библиотека?

Часть вторая: как правильно регулировать громкость и отключать звук (общесистемного или для каждого приложения) на XP, где эти интерфейсы недоступны?

Answer 1

Используйте этот простой код для отключения основного объема он работает на моей машине:

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