如果在IDE中增加一项自己的菜单,求一实例

如果在IDE中增加一项自己的菜单,求一实例 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061202014927134.html
如果在IDE中增加一项自己的菜单,然后点击该菜单又弹出自己定义的某个窗口!!  
  给个实例吧,谢谢!!

用ToolsAPI

uses   ToolsAPI;  
   
  var  
      NTAServices:   INTAServices;  
      _MainMenu:   TMainMenu;  
      _MenuItem:   TMenuItem;  
  begin  
      NTAServices   :=   BorlandIDEServices   as   INTAServices;  
      _MainMenu   :=   NTAServices.MainMenu;  
      _MenuItem   :=   TMenuItem.Create(Self);  
      _MenuItem.Caption   :=   'Sanmaotuo';  
      _MenuItem.OnClick   :=   MenuItemClick;  
      _MainMenu.Items.Add(_MenuItem);  
  end;  
   
  procedure   MenuItemClick(Sender:   TObject);  
  begin  
      with   TSanmaotuoForm.Create(Self)   do  
          Show;  
  end;

有没有相关资料啊,上面的代码好像是要做成DLL?

直接加入到包(Package)中再Compile+Install就OK了.很简单的.

顶冯老弟  
 

我还是不太明白一下代码要写在什么地方  
  var  
      NTAServices:   INTAServices;  
      _MainMenu:   TMainMenu;  
      _MenuItem:   TMenuItem;  
  begin  
      NTAServices   :=   BorlandIDEServices   as   INTAServices;  
      _MainMenu   :=   NTAServices.MainMenu;  
      _MenuItem   :=   TMenuItem.Create(Self);  
      _MenuItem.Caption   :=   'Sanmaotuo';  
      _MenuItem.OnClick   :=   MenuItemClick;  
      _MainMenu.Items.Add(_MenuItem);  
  end;  
  看来要查查资料了

老冯说的很清楚,新建一个包,将单元加入,编译安装即可  
 

我是安装了啊,却不知道,菜单在哪里?  
  且也不明白这段代码是在什么时候执行到的  
  NTAServices   :=   BorlandIDEServices   as   INTAServices;  
      _MainMenu   :=   NTAServices.MainMenu;  
      _MenuItem   :=   TMenuItem.Create(Self);  
      _MenuItem.Caption   :=   'Sanmaotuo';  
      _MenuItem.OnClick   :=   MenuItemClick;  
      _MainMenu.Items.Add(_MenuItem);

在initialization部分搞定了

在initialization部分搞定了  
   
  ----------------------------  
   
  好  
 

转载于:https://www.cnblogs.com/delphi2007/archive/2008/09/23/1296512.html