请问设置主音量的API函数是什么，如果没有，请问如何设置？

[dong163]

请问设置主音量的API函数是什么，如果没有，请问如何设置以及获得当然主音量？

注：我是问主音量，不是什么WaveOutSetVolume,AuxOutSetVolume,等等的

[dong163]

楼上的仁兄：
你的例子不是控制主音量吧！
我是问主音量，不是不是不是不是不是
什么WaveOutSetVolume,AuxOutSetVolume,等等的

[vcshcn]

waveoutsetvolume(id,volume)
取得id:waveoutgetid(hwaveout,(LPWORD)&id);

[dong163]

有了ID后怎么办呢？
waveoutgetid(hwaveout,(LPWORD)&id);是不是就是获得和主音量的相关的ID?

[My_first]

给你一个调整音量的例子

uses
MMSystem;

function GetLineInHandle(AudioType : integer) : integer;
var
i : integer;
AudioCaps : TAuxCaps;
begin
result := 0;
for i := 0 to auxGetNumDevs - 1 do begin
auxGetDevCaps(i, @AudioCaps, sizeof(AudioCaps));
if AudioCaps.wTechnology = AudioType then begin
Result := i;
Break;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
v : DWORD;
begin
AuxGetVolume(GetLineInHandle(AUXCAPS_CDAUDIO), @v);
Edit1.Text := IntToStr(LoWord(v));
Edit2.Text := IntToStr(HiWord(v));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
v : DWORD;
begin
v := MakeLong(Word(StrToInt(Edit1.Text)),
Word(StrToInt(Edit2.Text)));
AuxSetVolume(GetLineInHandle(AUXCAPS_CDAUDIO), v);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
v : DWORD;
begin
AuxGetVolume(GetLineInHandle(AUXCAPS_AUXIN), @v);
Edit3.Text := IntToStr(LoWord(v));
Edit4.Text := IntToStr(HiWord(v));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
v : DWORD;
begin
v := MakeLong(Word(StrToInt(Edit3.Text)),
Word(StrToInt(Edit4.Text)));
AuxSetVolume(GetLineInHandle(AUXCAPS_AUXIN), v);
end;

[dong163]

这个问题始没人能回答

[ljmemail]

我也关注此问题，需求答案