各位前輩~

我請問一個問題...

當我想控制 "麥克風" 的音量,那我又該如何控制...

不是喇叭音量喔!!請各位前輩幫忙吧 ~~感謝~

編輯記錄

參考:
http://groups.google.com.tw/group/borland.public.delphi.winapi/browse_thread/thread/c54e9f7ecc8e2bb0/85f9e081334aec93?lnk=st&q=microphone volume + delphi&rnum=3&hl=zh-TW#85f9e081334aec93

function GetWaveVolume: DWord;
var
Woc : TWAVEOUTCAPS;
Volume);
Result := Volume;
end;
end;

procedure SetWaveVolume(const AVolume: DWord);
var
Woc : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
LeftVolume: Word;
RightVolume: Word;
begin
LeftVolume := StrToInt(Edit1.Text);
RightVolume := StrToInt(Edit2.Text);
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Caption := IntToStr(GetWaveVolume);
end;

版主 謝謝你的回覆:
我將你列表的程式執行一次....他是控制麥克風的嗎?
我輸入值...沒做用且取得的值也大的恐怖...
譬如:

edti1.text := 100 edit2.text := 100; 按下Button2無反應
且
當按下Button3則秀出6553700值,這代表什麼呢?

可否再請版主指點迷津?感激...