Генерация профилей под определённое устройство аудио/видео захвата

[alekseiryzhakov]

Общий привет всем кто читает мою тему! Заодно, может кто-то из посетителей поможет мне ответит на вопрос, хочу понять как построить список аудио/видео профилей. Разные мультимедиа профили, будь это аудио или видео профиль, используются при обработке данных с устройства. Ну, аудио профиль по части работает с аудио устройствами, видео профиль же взаимодействует с видео устройствами. В общем мне интересно, как собственно создавать списки профилей для того или иного устройства, то есть как я сам понимаю алгоритм следующий:
В колонке с аудио устройствами, я выбираю то или иное устройство, затем при его выборе, под выбранное устройство составляется список мультимедиа профилей, взаимодействующих с ним. При выполнении подобных действий с видео устройством, тоже самое, но уже профили взаимодействующие с видео. Как получить список аудио/видео устройств в системе и общих профилей, приблизительно я знаю... Но вот как сделать так, что бы под каждое устройство составлялся свой список профилей, пока для меня проблема. Может кто с подобным сталкивался или уже знает готовое решение? Был бы очень благодарен хотя бы за малую подсказку.

Примерно как я сам понимаю, структура должна строится, примерно так:

var
  Int: Integral;
begin
  AudioDev := TSysDevEnum.Create(CLSID_AudioInputDeviceCategory);
  if AudioDev.CountFilters > 0 then
  begin
    for Int := 0 to AudioDev.CountFilters - 1 do
    begin
      ComboBoxDev.Items.Add(AudioDev.Filters[Int].FriendlyName);
    end;
  end;
  AudioTyp := TEnumMediaType.Create;
end;

{...}

begin
  AudioDev.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  if ComboBoxDev.ItemIndex <> - 1 then
  begin
    ...//Тут должен находится код генерации листа профилей, но вот непонятно что тут писать...
  end;
end;

Ещё со вчерашнего для искал на форумах решение, но пока всё глухо.

[Jacobson]

Хм... Задумался, я! А, можно задать встречный вопрос, что тут сложного? В принципе всё просто. К примеру вот:

begin
  AudioDev.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  if ComboBoxDev.ItemIndex <> - 1 then
  begin
    //Если коротко, вот что должно тут по идеи находиться!
    ComboBox.Clear;
    with ComboBox.Items do
    begin
      ComboBox.Items.Add('wmp_V80_288MonoAudio');
      ComboBox.Items.Add('wmp_V80_288StereoAudio');
      ComboBox.Items.Add('wmp_V80_32StereoAudio');
      ComboBox.Items.Add('wmp_V80_48StereoAudio');
      ComboBox.Items.Add('wmp_V80_64StereoAudio');
      ComboBox.Items.Add('wmp_V80_96StereoAudio');
      ComboBox.Items.Add('wmp_V80_128StereoAudio');
    end;
    //Ну, и тут заканчиваться или можно ещё что-то добавить от себя...
  end;
end;

А для присвоения профиля к "AsfWriter`у" напишешь вот так:

begin
  AsfWriter.Profile := TWMPofiles8(ComboBox.ItemIndex);  //Присвоили
end;

P.S.: Если кто-то может, мог лучше? Тогда чего молчали, хе-хе-хе...