Delphi修改了哪些系统参数

Question

最近用waveoutsetvolume函数控制音量，不知是哪一步操作导致系统音频控制选项全部变为灰色。以前有过一次，当时不明原因，重装声音驱动后恢复正常；这一次又出现，发现是Delphi修改了什么。但在另一台机器上试验又没有出现了这情况。以前也发现Delphi修改过某些程序的关联的文件夹和系统的debug相关内容。请各位高手们指点一下，Delphi会修改哪些系统参数；特别是开始提到的声音驱动被禁怎样恢复？

Answer 1

Delphi一般不会改系统参数的，dwVolume是32位的，高16位控制左边，低16位控制右边，看看是不是你哪里弄错了

Answer 2

谢谢一楼.
我仅仅用了这几行：
begin
pos:=Trackbar.position;
vol:=(pos shl 8)or(pos shl 24);
waveoutsetvolume(MediaPlayer1.diviceID-1,vol);
end;
在哪几个地方误操作可能会关闭系统音量控制呢？

Answer 3

有资料说waveoutsetvolume的第一个参数是指MediaPlayer1的设备类型,所以它提供了MediaPlayer1.diviceID-1作为第一个参数,我猜想可能MediaPlayer的设备类型第一个选项是Autoselect,所以要有“-1”，但并不知道diviceID究竟代表什么，不过用它作为参数一切正常，和用“0”作参数没什么两样。它不会关闭系统控制功能吧。如果我以后再遇到这种情况怎么办？如果不重装驱动的话。

Answer 4

发个供参考:
一、调节全部音量
　　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函数。