许多媒体播放器都可以调整系统声音,请问这是如何实现的?
解决方案 »
- ◆发送 shift+回车键 组合键 问题,一直没有解决◆
- radiobutton 高亮显示
- 一个sql变量问题
- delphi打印发票问题
- 想了解com,最好是有一个delphi下可以调试通过的编写的com代码
- 想让窗体上控件的大小随着窗体大小的改变而改变,该怎样做?
- 1,FR,RM的子报表是什么意思?2,FR,RM的设计窗体可有多个标签页,是什么意思?3Q
- 远程访问数据库
- 急需解决记录与字段间的转换。请问在SQL Server中有没有类似于Access中的命令TransForm .....Pivot。
- 有没有兴趣开发delphi下的游戏(用delphix控件)!
- 三层中的adodataset,bde的query的检索速度及二者的区别?
- 我恨D5。。。。
//音量控制
procedure TForm1.TrackBar1Change(Sender: TObject);
var
t,v:Longint;
begin
// if a=0 then Exit;
t:=TrackBar1.Position;
v:=(t shl 8)or(t shl 24);
waveOutSetVolume(0,v);
end;procedure tform1.trackbar1changer (sender:tobject);//左声道
var t,v:longint;
begin
t:=trackbar1.postion;
wavoutgetvolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
wavoutsetvolume(0,v);
end;procedure tform1.trackbar2changer (sender:tobject);//右声道
var t,v:longint;
begin
t:=trackbar2.postion;
wavoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
wavoutsetvolume(0,v);
end;//获得当前音量值
procedure TForm1.FormCreate(Sender: TObject);
var
v:longint;
begin
waveOutGetVolume(0,@v);
TrackBar2.Position:=hi(v);
TrackBar3.Position:=hi(v shr 16);
if hi(v)>hi(v shr 16) then
TrackBar1.Position:=hi(v)
else
TrackBar1.Position:=hi(v shr 16);
end;end.
函数说明:waveOutSetVolume
第一个参数是波形文件输出设备标识符;
第二个参娄是音量大小。这是一个32位的整数,低16位表示左声道的音量,
高16位表示右声道的音量。waveOutGetVolume
第一个参数是波形文件输出设备标识符;
第二个参数是一个32位整数的指针。
可以用auxoutsetvolume(id:integer,volume:dword);具体使用方法请查阅DELPHI帮助,WIN32SDK.HLP。 其中ID是设备代号,我在实际编程中发现ID随着机器的不同而不同,但是他可以直接控制各种设备的音量,你可以用不同的ID试一试(ID一般在1~8之间),音量设置方法wjiachun好象没错!