동적메뉴를 만들려고 합니다..
동적메뉴를 만든 다음에 메뉴 클릭시 다른 프로그램을 띄우고자 합니다..
Sub1 클릭시 test.exe
Sub2 클릭시 test2.exe
이렇게 호출하고 싶은데..
MyClick 에서 어떻게 해야 하는지 알려 주세요..


procedure TForm1.MyClick(Sender: TObject);
begin
beep;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
mi, msub: TmenuItem;
begin
with (Sender as TPopupMenu) do
begin
while Items.Count > 0 do Items[0].Free; //Item을 모두 지움

// Create ordinary item "First"
mi := TMenuItem.Create(self);
with mi do begin
Caption := 'First';
OnClick := MyClick;
end;
Items.Insert(0, mi);

// Create a submenu "Sub" with two items "Sub1" and
// "Sub2"
mi := TMenuItem.Create(self);
with mi do
begin
Caption := 'Sub';
msub := TMenuItem.Create(self);
with msub do
begin
Caption := 'Sub1';
OnClick := MyClick;
end;
Insert(0, msub);
//-----------------------------
msub := TMenuItem.Create(self);
with msub do begin
Caption := 'Sub2';
OnClick := MyClick;
end;
Insert(1, msub);
end;
Items.Insert(1, mi);
end;
end;