DS Pack - audiostream

[nXs]

Сделал выбор дорожек (правда нужен перезапуск файла):

procedure GetSoundStreamsCount;
var
FLTList : TFilterList;
PinInfo : tpininfo;
PinList:tpinlist;
i,k,m:integer;
begin
Form1.StreamBox.Clear;
begin
Form1.StreamBox.Clear;
if Form1.FilterGraph.Active then
 begin
FLTList := TFilterList.Create(Form1.FilterGraph as IFilterGraph);
for i:=0 to FLTList.Count - 1 do
  if (FLTList.FilterInfo[i].achName = 'Nero MP4 Splitter') or
   (FLTList.FilterInfo[i].achName = 'AVI Splitter') then  <--Можно и нужно добавлять другие сплиттера 
    PinList:=TPinList.Create(FLTList.Items[i] as IBaseFilter);    
    if PinList.Count>0 then
  for k:=0 to PinList.Count-1 do
      begin
          PinInfo:= PinList.PinInfo[k];
          if (PinInfo.achName='Audio 0')  or
              (PinInfo.achName='Audio 1')  or
              (PinInfo.achName='Audio 3')  or
              (PinInfo.achName='Audio 4') or
              (PinInfo.achName='Stream 01')  or
              (PinInfo.achName='Stream 02')  or
              (PinInfo.achName='Stream 03')  or
              (PinInfo.achName='Stream 04') then
                  begin///CUT
                 Form1.StreamBox.Items.Add(PinInfo.achName);
                  end;
  end;
  end;
  end;
  Form1.StreamBox.ItemIndex:=0;
end;

и собственно выбор:

procedure ChangeSound(num:integer);
var
FLTList : TFilterList;
PinInfo : tpininfo;
PinList:tpinlist;
i,m,j, k:integer;
 begin
FLTList := TFilterList.Create(Form1.FilterGraph as IFilterGraph);
for i:=0 to FLTList.Count - 1 do
  if (FLTList.FilterInfo[i].achName = 'Nero MP4 Splitter') or
  (FLTList.FilterInfo[i].achName = 'AVI Splitter') then
    PinList:=TPinList.Create(FLTList.Items[i] as IBaseFilter);
    if PinList.Count>0 then
  for k:=0 to PinList.Count-1 do
  begin
  PinInfo:= PinList.PinInfo[k];
    iif (PinInfo.achName='Audio 0')  or
              (PinInfo.achName='Audio 1')  or
              (PinInfo.achName='Audio 3')  or
              (PinInfo.achName='Audio 4') or
              (PinInfo.achName='Stream 01')  or
              (PinInfo.achName='Stream 02')  or
              (PinInfo.achName='Stream 03')  or
              (PinInfo.achName='Stream 04') then
      begin
  if PinInfo.achName<>Form1.StreamBox.Text  then
                  begin///CUT
                 with PinList.Items[k] as IPin do
                 PinList.Items[k].Disconnect;
                  end;
      end;

  end;
  Form1.FilterGraph.Play;
end;