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

Office2000（2003） 下 outlook,word 的 com addin 之 delphi实现！（整理摸索）(5) const
  CServerData: TServerData = (
  ClassID:   '{C45BDF5C-8430-4e26-97EF-B3624198366D}'; //随便3个GUID
  IntfIID:   '{A30AF5AC-D1FD-486a-8C7E-F71416EAFC4B}';
  EventIID:  {24BDE880-D3DB-4777-A5D4-AD24E1E3FCBD}';
  LicenseKey: nil;
  Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TCommandBarButton.InvokeEvent(DispID: TDispID;
var Params: TVariantArray);
begin
  case DispID of
   -1: Exit;  // DISPID_UNKNOWN
  1: if Assigned(FOnClick) then
     FOnClick(Params[0], Params[1]);
  end; {case DispID}
end;

procedure TCommandBarButton.SetOnClick(
const Value: TCommandBarButtonClick);
begin
  FOnClick := Value;
end;

4， 继续完成TMyOutlookAddIn类
在类定义里面增加项
private
  FCommandBarButton : TCommandBarButton;
  FCommandBarButton2 : TCommandBarButton;
  procedure FClick(const Ctrl: OleVariant; var CancelDefault: OleVariant);
  procedure F2Click(const Ctrl: OleVariant; var CancelDefault: OleVariant);

在OnConnection写下面代码
procedure TMyOutlookAddIn.OnConnection(const Application: IDispatch;
ConnectMode: ext_ConnectMode; const AddInInst: IDispatch;
var custom: PSafeArray);
//读取一个Bitmap并复制到粘贴板
  procedure CopyBitMapToClipBoard(strFile : string);
  var
    aBitMap : TBitmap;
  begin
    with TClipboard.Create do
    begin
      try
        aBitMap := TBitmap.Create;
        aBitMap.LoadFromFile(strFile);