////////  일단 예제입니다  ////////////

procedure TForm1.Button1Click(Sender: TObject);
var
a : string;
i : integer;
menu: TMenuItem;

begin

a := 'E:\josgogi.mpg';

for i := N21.Count - 1 downto 0 do
N21.Remove(N21.Items[i]);

   FilterGraph.ClearGraph;
   FilterGraph.FilterGraph2.RenderFile(StringToOleStr(a),nil);
   GetFilterList(FilterGraph.FilterGraph2,Listbox1.Items);
   FilterGraph.QueryInterfaces;
   FilterGraph.MediaControl.Run;
  
for i := 0 to Listbox1.items.count -1 do
  begin
    menu := TMenuItem.Create(Self);
    menu.Caption := Listbox1.items[i];
    menu.OnClick := MenuClick; // click 이벤트
    N21.Add(menu);
  end;
end;


// 필터리스트 뽑기
procedure TForm1.GetFilterList(graph: IFilterGraph; list: TStrings);
var
    EnumFilters: IEnumFilters;
    BaseFilter: IBaseFilter;
    FilterInfo: TFilterInfo;
begin
  list.Clear;
  graph.EnumFilters(EnumFilters);
  While (EnumFilters.Next(1, BaseFilter, nil)=S_OK) do
  begin
    BaseFilter.QueryFilterInfo(FilterInfo);
    list.Add(FilterInfo.achName);
  end;
end;


// 클릭 이벤트
procedure TForm1.MenuClick(Sender: TObject);
begin
if Sender is TMenuItem then
begin
   ShowMessage((Sender as TMenuItem).Caption);
  end;
end;



위에 예제 보면요, 리스트박스에 있는 넘을 메뉴에 집어넣었거든요. 그런데 이게 파일에 따라 다 달라요.
제가 기초없이 배워서 헷갈리는게 많아서요.
GetFilterList 라는 함수가 GetFilterList(graph: IFilterGraph; list: TStrings) 형으로 선언했구요.
TmenuItem은 String형이더라구요. 그런데 이 넘을 바로 메뉴에 넣고 싶거든요.
데이터형땜시 그러는건 아는디 해결 방법좀 갈카 주십시오 ~~~~~~~~!!!
어케 하면 될까요??? 이걸 하나로 합쳐서 걍 메뉴에 바로 넣고 싶습니다.
하다가 막 짜증만 나고 그러네요 ....