我想在程序中对系统音量进行调节,一个是总音量的控制,另一种是要像Winamp那样,可以对各个频率段的音量进行单独控制,请问怎么实现?
我想应该是一个API函数,可是看了看Delphi中的Multimedia API Reference也没有什么头绪,希望各位高手不吝赐教!
我想应该是一个API函数,可是看了看Delphi中的Multimedia API Reference也没有什么头绪,希望各位高手不吝赐教!
解决方案 »
- 关于使用条件语句
- 急,一个弄不明白的小问题(access),搞定马上结贴,在线等ing
- 随意改变ip地址和DNS服务器地址
- 怎样对日期变量进行运算?TdatetimePick中的时间怎么去掉?
- 怎么转义?
- Google給我的回信。55555!!!
- DELPHI非常非常非常简单的问题
- 我作了一個數據庫查詢語句﹐但是運行後在Open語句處出現這種錯誤‘Invalid use of Keyword.Token Date',請問如何解決﹖
- 有些惊异!将一个主键为空的记录保存到MDB数据库里,虽然提示错误,但于数据库相连的DBGRID中竟真出现了这一行!!!高手能否解释?
- 怎样将QuickRep报表的内容导出到WORD中(报表中带有表格)?
- 动态生成的一组控件,要任意选定一个进行拖动,再记录它的最终位置,怎样实现?
- 能否截取隐藏窗口的图像?
auxoutsetvolume 是控制CD音量的
waveOutSetVolume 是控制波形的
midiOutSetVolume 是控制FM或者是synthesizerunit Volume; interface uses windows,mmsystem; type
Tvolume=record
left,right:word; // 取值范围 0--65535
end; procedure fillstruct(control:PMixerControl;var Cdetails:tMIXERCONTROLDETAILS);
function getpeak(control:PMixerControl;var peak:integer):boolean;
function setvolume(control:Pmixercontrol; volume:Tvolume):boolean;
function getvolume(control:Pmixercontrol; volume:Tvolume):boolean; var
mcontrols:array of array of array of PMixerControl; //mixer的数组,单声卡可以不用
fmixerhandle:HMIXER; //mixer的句柄 implementation procedure fillstruct(control:PMixerControl;var Cdetails:tMIXERCONTROLDETAILS);
begin
Cdetails.cbStruct:=sizeof(cdetails);
cdetails.dwControlID:=Control.dwControlID;
cdetails.cbDetails:=sizeof(integer);
cdetails.hwndOwner:=0;
end; function getpeak(control:PMixerControl;var peak:integer):boolean;
var
details:TMixerControlDetailsSigned;
cdetails:tMIXERCONTROLDETAILS;
begin
Result:=false;
if control.dwControlType<> mixercontrol_controltype_peakmeter then exit;
cdetails.cChannels:=1;
cdetails.paDetails:=@details;
fillstruct(control,cdetails);
result:=mixerGetControlDetails(fmixerhandle,@cdetails,MIXER_GETCONTROLDETAILSF_VALUE)=0;
end; function setvolume(control:Pmixercontrol; volume:Tvolume):boolean;
var
details:array[0..30] of integer;
cdetails:tMIXERCONTROLDETAILS;
begin
fillstruct(control,cdetails);
cdetails.cChannels:=2;
cdetails.paDetails:=@details;
details[0]:=volume.left;
details[1]:=volume.right;
result:=mixerSetControlDetails(fmixerhandle,@cdetails,MIXER_GETCONTROLDETAILSF_VALUE)=0;
volume.left:=details[0];
volume.right:=details[1];
end; function getvolume(control:Pmixercontrol; volume:Tvolume):boolean;
var
details:array[0..30] of integer;
cdetails:tMIXERCONTROLDETAILS;
begin
fillstruct(control,cdetails);
cdetails.cChannels:=2;
cdetails.paDetails:=@details;
result:=mixerGetControlDetails(fmixerhandle,@cdetails,MIXER_GETCONTROLDETAILSF_VALUE)=0;
volume.left:=details[0];
volume.right:=details[1];
end; end. // 调用方法:
procedure TForm1.Button1Click(Sender: TObject);
var s : Tvolume;
kz : Pmixercontrol;
begin
new(kz); //<------------ 此处一定要分配内存
kz.dwControlID := 0;
s.left := 0;
s.right := 0;
try
setvolume(kz,s);
except
end;
freemem(kz);
end;
WinAmp中不是对各个频率段的音量进行单独控制,它是调节的解码器的参数,各个频率段的音量单独控制是无法实现的,除非你自己编写声卡驱动