Windows XP에서 마스터 볼륨을 얻는 방법은 무엇입니까?

Question

Windows XP에서 Delphi로 마스터 볼륨을 얻는 방법은 무엇입니까?

keybd_event(VK_VOLUME_UP, 1, 0, 0); 및 keybd_event(VK_VOLUME_DOWN, 1, 0, 0); 키 스트로크를 보내고 내려 설정할 수 있지만 볼륨의 실제 값을 얻는 방법을 모르겠습니다.

Answer 1

다음은 예제 코드에서 약간 수정 된 것으로 here (Thomas Stutz가 있다고 적혀 있습니다)입니다. 마이크 볼륨을 설정하는 예제입니다. 방금 마이크 소스 대신 스피커 유형을 수정하고 mixerSetControlDetails을 mixerGetControlDetails으로 바꾸고 설정 도구를 게터로 바꾸 었습니다. 여기에서 테스트 한 몇몇 시스템 (XPSp3, XPSp2, W2K, 98)에서는 제대로 작동하는 것 같습니다. 함수의 리턴은 최초의 (디폴트의) 믹서로부터의 스피커이며, 0 ~ 65535의 값입니다. 버튼 핸들러의 'ShowMessage'는 그것을 백분율로 변경합니다. 하지만 그것에 대해 더 자세한 내용을 묻지 말고 믹서 API에 대한 경험이 없습니다. 대신 here f.i를 참조하십시오. 이전 기사는 실제로 저에게 포괄적 인 것처럼 보였습니다.

function GetSpeakerVolume(var bValue: Word): Boolean; 
var       {0..65535} 
    hMix: HMIXER; 
    mxlc: MIXERLINECONTROLS; 
    mxcd: TMIXERCONTROLDETAILS; 
    vol: TMIXERCONTROLDETAILS_UNSIGNED; 
    mxc: MIXERCONTROL; 
    mxl: TMixerLine; 
    intRet: Integer; 
    nMixerDevs: Integer; 
begin 
    Result := False; 

    // Check if Mixer is available 
    nMixerDevs := mixerGetNumDevs(); 
    if (nMixerDevs < 1) then 
    Exit; 

    // open the mixer 
    intRet := mixerOpen(@hMix, 0, 0, 0, 0); 
    if intRet = MMSYSERR_NOERROR then 
    begin 
    mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS; 
    mxl.cbStruct := SizeOf(mxl); 

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

    if intRet = MMSYSERR_NOERROR then 
    begin 
     ZeroMemory(@mxlc, SizeOf(mxlc)); 
     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 
     ZeroMemory(@mxcd, SizeOf(mxcd)); 
     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_GETCONTROLDETAILSF_VALUE); 
     if intRet <> MMSYSERR_NOERROR then 
      ShowMessage('GetControlDetails Error') 
     else begin 
      bValue := vol.dwValue; 
      Result := True; 
     end; 
     end 
     else 
     ShowMessage('GetLineInfo Error'); 
    end; 
    intRet := mixerClose(hMix); 
    end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
var 
    Vol: Word; 
begin 
    if GetSpeakerVolume(Vol) then 
    ShowMessage(IntToStr(Round(Vol * 100/65535))); 
end;