系统音量控制(如何获取当前音量值？)

leisuretea 2010-06-08 01:51:12
http://topic.csdn.net/t/20040424/21/3004504.html

此文中 yingshang 所发表 VolumeUnit 单元中有提到了 获得左右声道的值，但是怎么获得当前音量呢？又如何调用显示？我所使用的是后面 funVolume 这个单元，调用如:



procedure TForm1.FormCreate(Sender: TObject);

begin

    GetVolume(WaveOut);

    RzSpinner1.Value := GetVolume(WaveOut);

end;


获取得到的总是音量总大小，即不管你当前音量为多大，RzSpinner1.Value 显示的都是总音量。在

Type TDeviceName = (Master, Microphone, WaveOut, Synth);

调用Master或 Microphone或 WaveOut或 Synth 都无任何变化。WaveOut 好像是输出吧，怎么得到的都是总音量而不是当前音量呢？如何正确调用显示或者用别的方法实现？左右声道的值又如何调用出来并显示？谢谢各位指教。



unit funVolume;



interface



uses MMSystem, Dialogs;



Type TDeviceName = (Master, Microphone, WaveOut, Synth);



function GetVolume(DN:TDeviceName) : Word ;

procedure SetVolume(DN:TDeviceName; Value:Word);

function GetVolumeMute(DN:TDeviceName) : Boolean;

procedure SetVolumeMute(DN:TDeviceName; Value:Boolean);



implementation



// 获取音量

function GetVolume(DN:TDeviceName) : Word;

var

hMix: HMIXER;

mxlc: MIXERLINECONTROLS;

mxcd: TMIXERCONTROLDETAILS;

vol: TMIXERCONTROLDETAILS_UNSIGNED;

mxc: MIXERCONTROL;

mxl: TMixerLine;

intRet: Integer;

nMixerDevs: Integer;

begin

// Check if Mixer is available

nMixerDevs := mixerGetNumDevs();

if (nMixerDevs < 1) then

begin

Exit;

end;



// open the mixer

intRet := mixerOpen(@hMix, 0, 0, 0, 0);

if intRet = MMSYSERR_NOERROR then

begin

case DN of

Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;

Microphone :

mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;

Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;

end;

mxl.cbStruct := SizeOf(mxl);



// get line info

intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxlc, SizeOf(mxlc),0);

mxlc.cbStruct := SizeOf(mxlc);

mxlc.dwLineID := mxl.dwLineID;

mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;

mxlc.cControls := 1;

mxlc.cbmxctrl := SizeOf(mxc);



mxlc.pamxctrl := @mxc;

intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxcd, SizeOf(mxcd),0);

mxcd.dwControlID := mxc.dwControlID;

mxcd.cbStruct := SizeOf(mxcd);

mxcd.cMultipleItems := 0;

mxcd.cbDetails := SizeOf(Vol);

mxcd.paDetails := @vol;

mxcd.cChannels := 1;



intRet := mixerGetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);



Result := vol.dwValue ;



if intRet <> MMSYSERR_NOERROR then

ShowMessage('GetControlDetails Error');

end

else

ShowMessage('GetLineInfo Error');

end;

intRet := mixerClose(hMix);

end;

end;



//设置音量

procedure setVolume(DN:TDeviceName; Value : Word);

var

hMix: HMIXER;

mxlc: MIXERLINECONTROLS;

mxcd: TMIXERCONTROLDETAILS;

vol: TMIXERCONTROLDETAILS_UNSIGNED;

mxc: MIXERCONTROL;

mxl: TMixerLine;

intRet: Integer;

nMixerDevs: Integer;

begin

// Check if Mixer is available

nMixerDevs := mixerGetNumDevs();

if (nMixerDevs < 1) then

begin

Exit;

end;



// open the mixer

intRet := mixerOpen(@hMix, 0, 0, 0, 0);

if intRet = MMSYSERR_NOERROR then

begin

case DN of

Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;

Microphone :

mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;

Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;

end;

mxl.cbStruct := SizeOf(mxl);



// get line info

intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxlc, SizeOf(mxlc),0);

mxlc.cbStruct := SizeOf(mxlc);

mxlc.dwLineID := mxl.dwLineID;

mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;

mxlc.cControls := 1;

mxlc.cbmxctrl := SizeOf(mxc);



mxlc.pamxctrl := @mxc;

intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxcd, SizeOf(mxcd),0);

mxcd.dwControlID := mxc.dwControlID;

mxcd.cbStruct := SizeOf(mxcd);

mxcd.cMultipleItems := 0;

mxcd.cbDetails := SizeOf(Vol);

mxcd.paDetails := @vol;

mxcd.cChannels := 1;



vol.dwValue := Value;



intRet := mixerSetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);



if intRet <> MMSYSERR_NOERROR then

ShowMessage('SetControlDetails Error');

end

else

ShowMessage('GetLineInfo Error');

end;

intRet := mixerClose(hMix);

end;

end;



// 获取静音



function GetVolumeMute(DN:TDeviceName) : Boolean;

var

hMix: HMIXER;

mxlc: MIXERLINECONTROLS;

mxcd: TMIXERCONTROLDETAILS;

vol: TMIXERCONTROLDETAILS_UNSIGNED;

mxc: MIXERCONTROL;

mxl: TMixerLine;

intRet: Integer;

nMixerDevs: Integer;

mcdMute: MIXERCONTROLDETAILS_BOOLEAN;

begin

// Check if Mixer is available

nMixerDevs := mixerGetNumDevs();

if (nMixerDevs < 1) then

begin

Exit;

end;





// open the mixer

intRet := mixerOpen(@hMix, 0, 0, 0, 0);

if intRet = MMSYSERR_NOERROR then

begin

case DN of

Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;

Microphone :

mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;

Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;

end;

mxl.cbStruct := SizeOf(mxl);



// mixerline info

intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxlc, SizeOf(mxlc),0);

mxlc.cbStruct := SizeOf(mxlc);

mxlc.dwLineID := mxl.dwLineID;

mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;

mxlc.cControls := 1;

mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;



// Get the mute control

intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxcd, SizeOf(mxcd),0);

mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);

mxcd.dwControlID := mxc.dwControlID;

mxcd.cChannels := 1;

mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);

mxcd.paDetails := @mcdMute;



// Get mute

intRet := mixerGetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);



if mcdMute.fValue = 0 then Result:=false

else Result := True;



if intRet <> MMSYSERR_NOERROR then

ShowMessage('SetControlDetails Error');

end

else

ShowMessage('GetLineInfo Error');

end;



intRet := mixerClose(hMix);

end;

end;



//设置静音

procedure SetVolumeMute(DN:TDeviceName; Value:Boolean);

var

hMix: HMIXER;

mxlc: MIXERLINECONTROLS;

mxcd: TMIXERCONTROLDETAILS;

vol: TMIXERCONTROLDETAILS_UNSIGNED;

mxc: MIXERCONTROL;

mxl: TMixerLine;

intRet: Integer;

nMixerDevs: Integer;

mcdMute: MIXERCONTROLDETAILS_BOOLEAN;

begin

// Check if Mixer is available

nMixerDevs := mixerGetNumDevs();

if (nMixerDevs < 1) then

begin

Exit;

end;



// open the mixer

intRet := mixerOpen(@hMix, 0, 0, 0, 0);

if intRet = MMSYSERR_NOERROR then

begin

case DN of

Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;

Microphone :

mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;

Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;

end;

mxl.cbStruct := SizeOf(mxl);



// mixerline info

intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxlc, SizeOf(mxlc),0);

mxlc.cbStruct := SizeOf(mxlc);

mxlc.dwLineID := mxl.dwLineID;

mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;

mxlc.cControls := 1;

mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;



// Get the mute control

intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);



if intRet = MMSYSERR_NOERROR then

begin

FillChar(mxcd, SizeOf(mxcd),0);

mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);

mxcd.dwControlID := mxc.dwControlID;

mxcd.cChannels := 1;

mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);

mxcd.paDetails := @mcdMute;



// Set and UnSet mute

mcdMute.fValue := Ord(Value);

intRet := mixerSetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);



if intRet <> MMSYSERR_NOERROR then

ShowMessage('SetControlDetails Error');

end

else

ShowMessage('GetLineInfo Error');

end;



intRet := mixerClose(hMix);

end;

end;



end.
...全文
1107 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
amu0001 2012-02-13
  • 打赏
  • 举报
 回复
不太明白
zhaoyang503776 2010-06-21
  • 打赏
  • 举报
 回复
看看，不错！
leisuretea 2010-06-21
  • 打赏
  • 举报
 回复
没人帮忙吗？提供一点信息也行啊。
leisuretea 2010-06-11
  • 打赏
  • 举报
 回复
UP!

大家帮帮忙啊。
wujinyuan 2010-06-11
  • 打赏
  • 举报
 回复
不明白。。收藏，帮顶。接分
twelve256 2010-06-11
  • 打赏
  • 举报
 回复
收藏了
kzzhang 2010-06-09
  • 打赏
  • 举报
 回复
unit funVolume;

interface

uses MMSystem, Dialogs;

Type TDeviceName = (Master, Microphone, WaveOut, Synth);

function GetVolume(DN:TDeviceName) : Word ;
procedure SetVolume(DN:TDeviceName; Value:Word);
function GetVolumeMute(DN:TDeviceName) : Boolean;
procedure SetVolumeMute(DN:TDeviceName; Value:Boolean);

implementation

// 获取音量
function GetVolume(DN:TDeviceName) : Word;
var
hMix: HMIXER;
mxlc: MIXERLINECONTROLS;
mxcd: TMIXERCONTROLDETAILS;
vol: TMIXERCONTROLDETAILS_UNSIGNED;
mxc: MIXERCONTROL;
mxl: TMixerLine;
intRet: Integer;
nMixerDevs: Integer;
begin
// Check if Mixer is available
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;

// open the mixer
intRet := mixerOpen(@hMix, 0, 0, 0, 0);
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// get line info
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cbStruct := SizeOf(mxcd);
mxcd.cMultipleItems := 0;
mxcd.cbDetails := SizeOf(Vol);
mxcd.paDetails := @vol;
mxcd.cChannels := 1;

intRet := mixerGetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);

Result := vol.dwValue ;

if intRet <> MMSYSERR_NOERROR then
ShowMessage('GetControlDetails Error');
end
else
ShowMessage('GetLineInfo Error');
end;
intRet := mixerClose(hMix);
end;
end;

//设置音量
procedure setVolume(DN:TDeviceName; Value : Word);
var
hMix: HMIXER;
mxlc: MIXERLINECONTROLS;
mxcd: TMIXERCONTROLDETAILS;
vol: TMIXERCONTROLDETAILS_UNSIGNED;
mxc: MIXERCONTROL;
mxl: TMixerLine;
intRet: Integer;
nMixerDevs: Integer;
begin
// Check if Mixer is available
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;

// open the mixer
intRet := mixerOpen(@hMix, 0, 0, 0, 0);
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// get line info
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cbStruct := SizeOf(mxcd);
mxcd.cMultipleItems := 0;
mxcd.cbDetails := SizeOf(Vol);
mxcd.paDetails := @vol;
mxcd.cChannels := 1;

vol.dwValue := Value;

intRet := mixerSetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);

if intRet <> MMSYSERR_NOERROR then
ShowMessage('SetControlDetails Error');
end
else
ShowMessage('GetLineInfo Error');
end;
intRet := mixerClose(hMix);
end;
end;

// 获取静音

function GetVolumeMute(DN:TDeviceName) : Boolean;
var
hMix: HMIXER;
mxlc: MIXERLINECONTROLS;
mxcd: TMIXERCONTROLDETAILS;
vol: TMIXERCONTROLDETAILS_UNSIGNED;
mxc: MIXERCONTROL;
mxl: TMixerLine;
intRet: Integer;
nMixerDevs: Integer;
mcdMute: MIXERCONTROLDETAILS_BOOLEAN;
begin
// Check if Mixer is available
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;


// open the mixer
intRet := mixerOpen(@hMix, 0, 0, 0, 0);
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// mixerline info
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);
mxlc.pamxctrl := @mxc;

// Get the mute control
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cChannels := 1;
mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
mxcd.paDetails := @mcdMute;

// Get mute
intRet := mixerGetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);

if mcdMute.fValue = 0 then Result:=false
else Result := True;

if intRet <> MMSYSERR_NOERROR then
ShowMessage('SetControlDetails Error');
end
else
ShowMessage('GetLineInfo Error');
end;

intRet := mixerClose(hMix);
end;
end;

//设置静音
procedure SetVolumeMute(DN:TDeviceName; Value:Boolean);
var
hMix: HMIXER;
mxlc: MIXERLINECONTROLS;
mxcd: TMIXERCONTROLDETAILS;
vol: TMIXERCONTROLDETAILS_UNSIGNED;
mxc: MIXERCONTROL;
mxl: TMixerLine;
intRet: Integer;
nMixerDevs: Integer;
mcdMute: MIXERCONTROLDETAILS_BOOLEAN;
begin
// Check if Mixer is available
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;

// open the mixer
intRet := mixerOpen(@hMix, 0, 0, 0, 0);
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// mixerline info
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);
mxlc.pamxctrl := @mxc;

// Get the mute control
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cChannels := 1;
mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
mxcd.paDetails := @mcdMute;

// Set and UnSet mute
mcdMute.fValue := Ord(Value);
intRet := mixerSetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);

if intRet <> MMSYSERR_NOERROR then
ShowMessage('SetControlDetails Error');
end
else
ShowMessage('GetLineInfo Error');
end;

intRet := mixerClose(hMix);
end;
end;

end.
leisuretea 2010-06-09
  • 打赏
  • 举报
 回复
UP！没人知道吗？
VC 获取和设置系统音量.rar
VC 获取和设置系统音量，VC音量控制程序源码，通过混音器获取和设置windows音频线路的音量大小，通过滚动条滑块控制音量，获得当前音量值，并设置滚动条的初始位置，同时还可以了解到以下实用技巧：获取当前混音设备...
android获取当前系统音量大小,android显示当前系统音量seekBar
音量调节相关//获取当前音量，并设置音量，因为只设置了当前音量，目的只是为了显示系统音量控制条AudioManageram=(AudioManager)mContext.getSystemService(Context.AUDIO_SERVICE);intcurrentVolume=am....
[IOS] —— 获取系统音量和获取app音量
获取系统音量 iOS的音量控制接口在MediaPlayer库中 首先要将该库导入 #import <MediaPlayer/MPVolumeView.h> 而MPVolumeView中负责控制音量的是它的子视图MPVolumeSlider，而这个类并未对外公开，所以我们...
Unity Android 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值，监听音量变化的方法整理
Unity Android 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值，监听音量变化的方法整理 目录 Unity Android 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值，监听音量变化的...
Android Studio 基础 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值，监听音量变化的方法整理
Android Studio 基础 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值的方法整理 目录 Android Studio 基础 之 获取各个音量的最大值、最小值、以及当前音量值，并设置音量值的方法整理 一、...
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章