Office2000（2003） 下 outlook,word 的 com addin 之 delphi实现！（整理摸索）

Office2000（2003） 下 outlook,word 的 com addin 之 delphi实现！（整理摸索）(6)         Assign(aBitMap);
      finally
       aBitMap.Free;
       Free;
     end;
   end;
 end;

var
  App : OutlookApplication;          //Word addin实现差别，定义 ：WordApp: WordApplication
  aCommandBar : CommandBar;
  aButton,aButton2 : _CommandBarButton;
begin

  App := OutlookApplication(Application);
  aCommandBar := App.ActiveEXPlorer.CommandBars.Add('NewButtoNBAr', msoBarTop, False, True); //button栏
//Word addin实现差别
// App := WordApplication(Application);
// aCommandBar := App.CommandBars.Add('SYNI', msoBarTop, False, True); //button栏

//第一个button
  aButton := aCommandBar.Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, True)        as _CommandBarButton;
  aButton.Set_Style(msoButtonIconAndCaption);
  aButton.Set_Caption('SCP Manager');
  CopyBitMapToClipBoard(YourBmpFile); //这两句话是给按钮设定一个外部图标，
  aButton.PasteFace; //你要增加一个bitmap资源bitmap大小为16*16