在Delphi IDE中增加菜单项

uses ToolsApi, Menus;
{....}
var
 item: TMenuItem;
begin
 {get reference to delphi's mainmenu. You can handle it like a common TMainMenu}
 with (BorlandIDEServices as INTAServices).GetMainMenu do
 begin
   item := TMenuItem.Create(nil);
   item.Caption := 'A Mewn caption';
   Items.Add(item);
 end;
end;