Поиск аудио устройств и их параметров API

[Jacobson]

Как мне используя "API" найти в системе все установленные аудио устройства: Сама звуковая плата или аналог, устройства ввода, например это микрофон или "CD-Плеер", и параметры записи которые поддерживаются тем или иным аудио устройством для записи? Как получить звук с микрофона это понятно! Но вот что делать если надо получить звук не с микрофона, а к примеру с "CD-Плеера" и выбрать для этого формат записи я пока не знаю... Посоветуйте оптимальный пример или источник, пожалуйста!
P.S.: Полистав имеющуюся у меня литературу по "API" в "Delphi" особо не чего не нашёл...

[raxp]

mixerGetLineControls(), mixerGetLineInfo(), mixerGetDevCaps(), mixerSetControlDetails() модуля mmsystem.

[Jacobson]

Сообщение от raxp

mixerGetLineControls(), mixerGetLineInfo(), mixerGetDevCaps(), mixerSetControlDetails() модуля mmsystem.

Большое спасибо за ответ! Даже и не знаю ка вас благодарить...

[Jacobson]

Не получается корректно проверить и получить список линий с устройства. Хочу проверить выбранное устройство на наличие линий ввода и загрузить данные в список. Набросал некий код, но работает не корректно! Что-то не так...

var
  Mixer: HMixer;
  MixerCaps: TMixerCaps;
  MixerControl: TMixerControl;
  MixerLine: TMixerLine;
  MixerLineControls: TMixerLineControls;
  MixerLineInPutList: array [0..12] of Integer = (MIXERLINE_COMPONENTTYPE_SRC_FIRST,
                                                 MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED,
                                                 MIXERLINE_COMPONENTTYPE_SRC_DIGITAL,
                                                 MIXERLINE_COMPONENTTYPE_SRC_LINE,
                                                 MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE,
                                                 MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER,
                                                 MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC,
                                                 MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE,
                                                 MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER,
                                                 MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT,
                                                 MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY,
                                                 MIXERLINE_COMPONENTTYPE_SRC_ANALOG,
                                                 MIXERLINE_COMPONENTTYPE_SRC_LAST);
  Integral, LineIndex: Integer;
begin
  ComboAudioLines.Clear;
  if ListAudioDevices.ItemIndex <> - 1 then
  begin
    if (MixerOpen(@Mixer, 0, 0, 0, 0) = MMSYSERR_NOERROR) then
    begin
      LineIndex := MixerLine.cConnections;
      for Integral := 0 to (LineIndex - 1) do
      begin
        MixerLine.dwComponentType := MixerLineInPutList[Integral];
        MixerLine.cbStruct := SizeOf(MixerLine);
        if (MixerGetLineInfo(Mixer, @MixerLine, MIXER_GETLINEINFOF_COMPONENTTYPE) = MMSYSERR_NOERROR) then
        begin
          ZeroMemory(@MixerLine, SizeOf(MixerLineControls));
          MixerLineControls.cbStruct := SizeOf(MixerLineControls);
          MixerLineControls.dwLineID := MixerLine.dwLineID;
          MixerLineControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
          MixerLineControls.cControls := 1;
          MixerLineControls.cbMxCtrl := SizeOf(MixerControl);
          MixerLineControls.paMxCtrl := @MixerControl;
          if (MixerGetLineControls(Mixer, @MixerLineControls, 
            MIXER_GETLINECONTROLSF_ONEBYTYPE) = MMSYSERR_NOERROR) then
          begin
            ComboAudioLines.Items.Append(MixerLine.szName);
          end;
        end;
      end;
    end;
  end;
  Exit;
end;

Имеются мало, но полезные ссылки: http://www.delphimaster.ru/articles/mixer.html и http://cbuilder.ru/index.php?topic=3830.0 в последнем варианте описывается метод на языке, "C++". Но тем всё же на "Borland"!