请问，要做调节音量的功能，但对系统音量不影响，这不知要用哪个函数？

Question

请问，我做了一个播放器，要做调节音量的功能，但对系统音量不影响，这不知要用哪个函数？谢谢你们！！！

Answer 1

刚刚找了一下，找到一个，如下uses mmsystem;procedure GetVolume;
var allvolume,leftv,rightv:integer;
begin
  waveoutgetvolume(0,@allvolume);
  leftv:=allvolume and $0ffff;
  rightv:=(allvolume and $0ffff0000) div $10000;
end;//设置当前音量：
procedure SetVolume(left,right:integer);
var leftv,rightv:integer;
begin
   leftv:=left;
   rightv:=right;
   mmsystem.waveOutSetVolume(0,leftv+rightv*65536);
end;