Delphi и OpenToolsAPI. Работаем с главным меню.

unit Wizard1;
 
interface
 
uses ToolsAPI, dialogs, menus;
 
type TThWizard1 = class(TNotifierObject, IOTAWizard, IOTANotifier)
  function GetName: string;
  function GetAuthor: string;
  function GetIDString: string;
  function GetState: TWizardState;
  procedure Execute;
         //Теперь нам не нужен метод GetMenuText
end;
 
procedure register;
 
implementation
 
procedure register;
begin
  RegisterPackageWizard(TThWizard1.Create);
end;
 
{ TThWizard1 }
 
procedure TThWizard1.Execute;
begin
  //Оставляем пустым
end;
 
function TThWizard1.GetAuthor: string;
begin
  result := 'Darth_Vaider';//здесь всё, как в первой части
end;
 
function TThWizard1.GetIDString: string;
begin
  result := 'Darth_Vaider.ThWizard1';//как в первой части
end;
 
function TThWizard1.GetName: string;
begin
  result := 'ThWizard1';//Как в первой части
end;
 
function TThWizard1.GetState: TWizardState;
begin
  result := [];//Возвращаем пустое множество.
end;
 
end.

constructor TThWizard1.Create;
begin
 
end;

var Menu, Item: TMenuItem;

constructor TThWizard1.Create;
var Menu, Item: TMenuItem;
begin
  Item := TMenuItem.Create(nil);  //Создаём наш пункт меню
  Item.Name := 'test1';           //даём ему имя
  Item.Caption := 'TestItem1';    //Устанавливаем текст
  Item.OnClick := Click;          //устанавливаем обработчик события
  Menu := (BorlandIDEServices as INTAServices).MainMenu.Items[1];
            {
               Я затрудняюсь сказать, что такое BorlandIDEServices.
               Могу утверждать только то, что через эту переменную
               мы получаем доступ ко всем компонентам среды.
               Например, методом MainMenu мы получаем главное меню среды.
               Выбрав в нём первый пункт, мы получаем меню Edit.
            }
  Menu.Insert(0, Item);  //Вставляем наш пункт в начало меню Edit.
end;

destructor TThWizard1.Destroy;
var Menu: TMenuItem;
begin
  Menu := (BorlandIDEServices as INTAServices).MainMenu.Items[1];//точно так же получаем меню Edit
  Menu.Delete(0);   //и удаляем из него наш пункт
end;

procedure TThWizard1.Click(Sender: TObject);
begin
  //Здесь пишем всё, что нам заблагорассудится
end;

procedure TThWizard1.Click(Sender: TObject);
begin
  if not assigned (Form1) then Form1 := TForm1.Create(nil);
  Form1.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
var MenuItem: TMenuItem;
MenuIDE: TMainMenu;
Items: array of TMenuItem;
ItemsA: array of TMenuItem;
i, j: integer;
begin
  MainMenu := TMainMenu.Create(self);      //Создаём меню
  MenuIDE := (BorlandIDEServices as INTAServices).MainMenu; //Получаем меню среды
  MainMenu.Images := MenuIDE.Images;  //Получаем ImageList главного меню
  for i := 0 to MenuIDE.Items.Count - 1 do       //проходим по всем пунктам
  begin
    MenuItem := MenuIDE.Items[i];
    SetLength(Items, Length(Items)+1);           //добавляем текущий пункт в массив
    Items[i] := TMenuItem.Create(nil);
    Items[i].Name := MenuItem.Name;             //и копируем все его свойства
    Items[i].Caption := MenuItem.Caption;
    Items[i].ImageIndex := MenuItem.ImageIndex;
    MainMenu.Items.Add(Items[i]);
    for j := 0 to MenuItem.Count - 1 do                //Для всех пунктов смотрим вложения
    begin
      SetLength(ItemsA, Length(ItemsA)+1);
      ItemsA[j] := TMenuItem.Create(nil);
      ItemsA[j].Name := MenuItem[j].Name;
      ItemsA[j].Caption := MenuItem[j].Caption;       //и точно также копируем все их свойства
      ItemsA[j].ImageIndex := MenuItem[j].ImageIndex;
      ItemsA[j].OnClick := MenuItem[j].OnClick;
      ItemsA[j].ShortCut := MenuItem[j].ShortCut;
      ItemsA[j].Enabled := MenuItem[j].Enabled;
      Items[i].Insert(j, ItemsA[j]);
    end;
  end;
end;