Create a menu item into the Delphi menu

{....}

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;

本文地址：http://com.8s8s.com/it/it4378.htm