' Open the mixer with deviceID 0.
         rc = mixerOpen(hmixer, 0, 0, 0, 0)

Private Declare Function mixerOpen Lib "winmm.dll" (phmx As Long, ByVal uMxId As Long, _
 ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long

Public Function OpenDevicePlayer(id As Long) As Boolean
  Dim format As WAVEFORMATEX
  format.wFormatTag = WAVE_FORMAT_PCM
  format.nChannels = 1
  format.wBitsPerSample = 8
  format.nSamplesPerSec = 8000
  format.nBlockAlign = format.nChannels * format.wBitsPerSample / 8
  format.nAvgBytesPerSec = format.nSamplesPerSec * format.nBlockAlign
  format.cbSize = 0
  
  Dim line As MIXERLINE
  
  Dim osError As Long
  
  osError = MMSYSERR_BADDEVICEID
  Dim hWaveOut As Long
  osError = waveOutOpen(hWaveOut, id, format, 0, 0, 0)
  If osError = MMSYSERR_NOERROR Then
    mixerOpen hmixer_spk, hWaveOut, 0, 0, MIXER_OBJECTF_HWAVEOUT
    line.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT
  End If

PBoolean PSoundChannelWin32::Close()
{
...
  PWaitAndSignal mutex(bufferMutex);

  Abort();

  if (hWaveOut != NULL) {
    while (waveOutClose(hWaveOut) == WAVERR_STILLPLAYING)
      waveOutReset(hWaveOut);
    hWaveOut = NULL;
  }
...
  if (hMixer != NULL) {
    mixerClose(hMixer);
    hMixer = NULL;
  }
PBoolean PSoundChannelWin32::Abort()
{
  DWORD osError = MMSYSERR_NOERROR;

  {
    PWaitAndSignal mutex(bufferMutex);

    if (hWaveOut != NULL || hWaveIn != NULL) {
      for (PINDEX i = 0; i < buffers.GetSize(); i++) {
        do {
          if (hWaveOut != NULL)
            waveOutReset(hWaveOut);
          if (hWaveIn != NULL)
            waveInReset(hWaveIn);
        } while (buffers[i].Release() == WAVERR_STILLPLAYING);
      }
    }

mixerClose(hMixer);
waveOutReset(hWaveOut);
waveOutClose(hWaveOut)

hWaveOut = NULL;
hMixer = NULL;

PWaitAndSignal mutex(bufferMutex);

DoEvents

  osError = MMSYSERR_BADDEVICEID
  Dim hWaveOut As Long
  osError = waveOutOpen(hWaveOut, id, format, 0, 0, 0)
  If osError = MMSYSERR_NOERROR Then
    mixerOpen hmixer_spk, hWaveOut, 0, 0, MIXER_OBJECTF_HWAVEOUT
    waveOutClose hWaveOut
    line.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT
  End If

mixerOpen hmixer_spk, id, 0, 0, MIXER_OBJECTF_WAVEOUT

Private Const WAVE_MAPPER As Long = -1&
waveOutOpen(hWaveOut, WAVE_MAPPER, format, 0, 0, 0)

Private Function GetPreferredWaveOutDevice(id As Long, name As String) As Boolean
  'ф-ция возвращает реальные id и имя девайса, кот. Default
  Dim DWord2Ptr As Long
  Dim osError As Long
  'получаем реальный id: от 0 до count-1, либо -1 если девайсов нет
  osError = waveOutMessage(WAVE_MAPPER, DRVM_MAPPER_PREFERRED_GET, VarPtr(id), VarPtr(DWord2Ptr))
  If osError = MMSYSERR_NOERROR Then
    GetWaveOutDeviceName id, name 'получаем реальное имя по реальному id
    GetPreferredWaveOutDevice = True
  Else
    GetPreferredWaveOutDevice = False
  End If
End Function[SRC vba]
  osError = mixerOpen(hmixer_spk, id, 0, 0, MIXER_OBJECTF_WAVEOUT)

    'There is no "master" for the recording side, so need to find the
    'individual microphone input
    Dim iConn As Long
    iConn = line.cConnections
    Do While (iConn > 0)
      iConn = iConn - 1
      line.dwSource = iConn
      osError = mixerGetLineInfo(hmixer_rec, line, MIXER_GETLINEINFOF_SOURCE)
      If osError <> MMSYSERR_NOERROR Then
        Debug.Print "WinSnd" & Chr(9) & "Recorder: Failed to get mixer info, error=" & osError
      ElseIf line.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE Then
        Debug.Print "WinSnd" & Chr(9) & "Recorder: Found microphone, source=" & iConn
        Exit Do
      End If
      If iConn = 0 Then
        Debug.Print "WinSnd" & Chr(9) & "Recorder: Failed to find microphone info"
        haveControls = False
      End If
    Loop

hMem = GlobalAlloc(&H40, Len(mxcdlt(0)) * mxcd.item) '???

hMem = GlobalAlloc(&H40, Len(mxcdlt(0)) * (mxcd.item + 1)) '???

    Dim haveControls As Boolean
    haveControls = True

    Dim controls As MIXERLINECONTROLS
    Dim ctrl_mux_rec As MIXERCONTROL
    Dim hMem As Long
    
    'There is no "master" for the recording side, so need to find the
    'single selected input or at least individual microphone input
    
    '1) Attempt to find currently selected input
    ctrl_mux_rec.cbStruct = Len(ctrl_mux_rec)
    controls.cbStruct = Len(controls)
    controls.dwLineID = line.dwLineID
    controls.dwControl = MIXERCONTROL_CONTROLTYPE_MUX
    controls.cControls = 1
    'Allocate memory to hold mixercontrol info
    hMem = GlobalAlloc(&H40, Len(ctrl_mux_rec))
    'Set the pointer to allocated memory
    controls.pamxctrl = GlobalLock(hMem)
    controls.cbmxctrl = ctrl_mux_rec.cbStruct
    osError = mixerGetLineControls(hmixer_rec, controls, _
              MIXER_OBJECTF_HMIXER Or MIXER_GETLINECONTROLSF_ONEBYTYPE)
    If osError = MMSYSERR_NOERROR Then
      'Copy the control into the destination structure
      CopyStructFromPtr ctrl_mux_rec, controls.pamxctrl, Len(ctrl_mux_rec)
      GlobalFree (hMem)

      Dim mxcd As MIXERCONTROLDETAILS
      Dim mxcdb() As MIXERCONTROLDETAILS_BOOLEAN
      Dim mxcdlt() As MIXERCONTROLDETAILS_LISTTEXT
      ReDim mxcdlt(ctrl_mux_rec.cMultipleItems - 1)
      ReDim mxcdb(ctrl_mux_rec.cMultipleItems - 1)
      With mxcd
        .cbStruct = Len(mxcd)
        .dwControlID = ctrl_mux_rec.dwControlID
        .cChannels = 1
        .item = ctrl_mux_rec.cMultipleItems
        hMem = GlobalAlloc(&H40, Len(mxcdlt(0)) * (mxcd.item + 1)) '???
        .paDetails = GlobalLock(hMem)
        .cbDetails = Len(mxcdlt(0))
      End With
      ' Get the control list text items (input lines id's)
      osError = mixerGetControlDetails(hmixer_rec, mxcd, _
       MIXER_OBJECTF_HMIXER Or MIXER_GETCONTROLDETAILSF_LISTTEXT)
      If osError = MMSYSERR_NOERROR Then
        ' Copy the data into the control value buffer
        CopyStructFromPtr mxcdlt(0), mxcd.paDetails, Len(mxcdlt(0)) * mxcd.item
        ' Free allocated memory
        GlobalFree (hMem)

        mxcd.cbDetails = Len(mxcdb(0))
        hMem = GlobalAlloc(&H40, Len(mxcdb(0)) * (mxcd.item + 1)) '???
        mxcd.paDetails = GlobalLock(hMem)
        ' Get the control values for line states (selected/not selected)
        osError = mixerGetControlDetails(hmixer_rec, mxcd, _
         MIXER_OBJECTF_HMIXER Or MIXER_GETCONTROLDETAILSF_VALUE)
        If osError = MMSYSERR_NOERROR Then
          ' Copy the data into the control value buffer
          CopyStructFromPtr mxcdb(0), mxcd.paDetails, Len(mxcdb(0)) * mxcd.item
          ' Free allocated memory
          GlobalFree (hMem)

          Dim iItem As Long
          iItem = mxcd.item
          Do While iItem > 0
            iItem = iItem - 1
            line.dwLineID = mxcdlt(iItem).dwParam1
            osError = mixerGetLineInfo(hmixer_rec, line, MIXER_OBJECTF_HMIXER Or MIXER_GETLINEINFOF_LINEID)
            If osError <> MMSYSERR_NOERROR Then
              If DebugEnable Then _
               AddDebugInfo "WinSnd Recorder: Failed to get mixer info, error=" & osError, True
            Else
              If mxcdb(iItem).fValue = 1 Then
                If DebugEnable Then _
                 AddDebugInfo "WinSnd Recorder: Found selected input device: " & devicename(line.szName), True
                Exit Do
              End If
              If iItem = 0 Then
                If DebugEnable Then _
                 AddDebugInfo "WinSnd Recorder: Failed to find selected input device", True
                haveControls = False
              End If
            End If
          Loop
        Else
          GlobalFree (hMem)
          haveControls = False
          If DebugEnable Then _
           AddDebugInfo "WinSnd Recorder: failed to get info about states of input lines, error=" & osError, True
        End If
      Else
        GlobalFree (hMem)
        haveControls = False
        If DebugEnable Then _
         AddDebugInfo "WinSnd Recorder: failed to get info about input lines, error=" & osError, True
      End If
    Else
      GlobalFree (hMem)
      haveControls = False
      If DebugEnable Then _
       AddDebugInfo "WinSnd Recorder: failed to get mixer line mux control, error=" & osError, True
    End If