//---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TTrackBar *TrackBar1;
        TTrackBar *TrackBar2;
        TLabel *Label1;            void __fastcall FormShow(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall TrackBar2Change(TObject *Sender);
private:        // User declarations    public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
        bool TForm1::SetMicrophoneVolume( unsigned int bValue );
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif    void __fastcall TForm1::FormShow(TObject *Sender)
{
DWORD volume;
TrackBar1->Max = 0xFFFF;
TrackBar1->Frequency = 1000;
TrackBar2->Max = 0xFFFF;
TrackBar2->Frequency = 1000;    TrackBar1->Position = waveOutGetVolume(0, &volume);
TrackBar1->Position = 0xFFFF - LOWORD(volume);
volume_org=volume;
}    void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{    int value = 0xFFFF - TrackBar2->Position;
//waveOutSetVolume(0, MAKELONG(0xFFFF - TrackBar1->Position, 0xFFFF - TrackBar1->Position));
//SetMicrophoneVolume(MAKELONG(0xFFFF - TrackBar2->Position);
SetMicrophoneVolume( value);
 Label1->Caption=IntToStr(value);
}    //設定 麥克風的音量 0 ~ 65535
bool TForm1::SetMicrophoneVolume(unsigned int bValue)
{
    HMIXER hMix;
    MIXERLINECONTROLS mxlc;
    MIXERCONTROLDETAILS mxcd;
    MIXERCONTROLDETAILS_UNSIGNED vol;
    MIXERCONTROL mxc;
    MIXERLINE mxl;
    int intRet;
    int nMixerDevs;        // Check if Mixer is available
    nMixerDevs = mixerGetNumDevs();
    if (nMixerDevs < 1) return false;        // open the mixer
    intRet = mixerOpen(&hMix, 0, 0, 0, 0);
    if (intRet != MMSYSERR_NOERROR) return false;        try {
        mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
        mxl.cbStruct = sizeof(mxl);            // get line info
        intRet = mixerGetLineInfo(hMix, &mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);            if (intRet == MMSYSERR_NOERROR) {
            memset(&mxlc, 0, 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) {
                memset(&mxcd, 0, sizeof(mxcd));
                mxcd.dwControlID = mxc.dwControlID;
                mxcd.cbStruct = sizeof(mxcd);
                mxcd.cMultipleItems = 0;
                mxcd.cbDetails = sizeof(vol);
                mxcd.paDetails = &vol;
                mxcd.cChannels = 1;                    // vol.dwValue = mxlc.pamxctrl.Bounds.lMinimum; Set min. Volume / Minimum setzen
                // vol.dwValue = mxlc.pamxctrl.Bounds.lMaximum; Set max. Volume / Maximum setzen
                vol.dwValue = bValue;                    intRet = mixerSetControlDetails(hMix, &mxcd, MIXER_SETCONTROLDETAILSF_VALUE);
                if (intRet != MMSYSERR_NOERROR) {
                    intRet = mixerClose(hMix);
                    throw new Exception("SetControlDetails Error");
                }
            }
        }
        else {
            intRet = mixerClose(hMix);
            throw new Exception("SetControlDetails Error");
        }
    }
    catch (...) {
        return false;
    }        intRet = mixerClose(hMix);
    return true;
}     

void SetMicVolume(unsigned int iValue)
{
   // Open the mixer device
   HMIXER hmx;
   mixerOpen(&hmx, 0, 0, 0, 0);       // Get the line info for the wave in destination line
   MIXERLINE mxl;
   mxl.cbStruct = sizeof(mxl);
   mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_WAVEIN;
   mixerGetLineInfo((HMIXEROBJ)hmx, &mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);       // Now find the microphone source line connected to this wave in destination
   DWORD cConnections = mxl.cConnections;
   for (DWORD j = 0; j < cConnections; j  )
   {
      mxl.dwSource = j;
      mixerGetLineInfo((HMIXEROBJ)hmx, &mxl, MIXER_GETLINEINFOF_SOURCE);
      if (MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE == mxl.dwComponentType)
         break;
   }
   // Find a volume control, if any, of the microphone line
   MIXERCONTROL mxc;
   MIXERLINECONTROLS mxlc;
   memset(&mxlc, 0, sizeof(MIXERLINECONTROLS));
   mxlc.cbStruct = sizeof(MIXERLINECONTROLS);
   mxlc.dwLineID = mxl.dwLineID;
   mxlc.dwControlID = MIXERCONTROL_CONTROLTYPE_VOLUME;
   mxlc.cControls = 1;
   mxlc.cbmxctrl =  sizeof(MIXERCONTROL);
   mxlc.pamxctrl = &mxc;
   if(!mixerGetLineControls((HMIXEROBJ)hmx, &mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)){
      // Found!
      DWORD cChannels = mxl.cChannels;
      if (MIXERCONTROL_CONTROLF_UNIFORM & mxc.fdwControl)
         cChannels = 1;          MIXERCONTROLDETAILS_UNSIGNED vol;          MIXERCONTROLDETAILS mxcd;
      memset(&mxcd, 0, sizeof(MIXERCONTROLDETAILS));
      mxcd.cbStruct = sizeof(MIXERCONTROLDETAILS);
      mxcd.dwControlID = mxc.dwControlID;
      mxcd.cChannels = cChannels;
      mxcd.cMultipleItems = 0;
      mxcd.cbDetails = sizeof(MIXERCONTROLDETAILS_UNSIGNED);
      mxcd.paDetails = &vol;          vol.dwValue = iValue;          mixerSetControlDetails((HMIXEROBJ)hmx, &mxcd, MIXER_SETCONTROLDETAILSF_VALUE);
   }
   mixerClose(hmx);
}