Delphi Open Tools Api实例研究（一）[11]

 icon1:ticon;//菜单项一的图标

begin

  fmainmenu:=(borlandideservices as intaservices).mainmenu;

  //我们用 intaservices的mainmenu属性直接得到了ide的主菜单

  fimagelist:=(borlandideservices as intaservices).imagelist;

  //我们用 intaservices的imagelist属性直接得到了ide的图象列表

  newmenu:=tmenuitem.create(fmainmenu);

  //创建我们的菜单

  newmenu.caption:='hk.barton';