如何将自己的应用程序嵌入到Office中就象金山词霸在Office中增加一个调用金山词霸的按钮

Question

如何将自己的应用程序嵌入到Office中就象金山词霸在Office中增加一个调用金山词霸的按钮

Answer 1

用控件:http://www.devarchive.com/f1014.html

Answer 2

http://www.handyarchive.com/Development/Components-Libraries/10530-Add-in-Express-2-VCL-Edition.html

Answer 3

代碼:
http://www.delphi3000.com/articles/article_2719.asp?SK=unit uOfficePlugin; interface uses 
  OleServer, ActiveX, Classes, ComObj, 
  Office_TLB, AddinDesignerObjects_TLB, Excel_TLB, Outlook_TLB, Word_TLB; type 
  TOfficeButtonClickEvent = procedure( 
    const Control: OleVariant; var CancelDefault: OleVariant 
  ) of object;   TOfficeButton = class(TOleServer) 
  private 
    FCommandBarButton: _CommandBarButton; 
    FOnClick: TOfficeButtonClickEvent; 
    function GetCaption: WideString; 
    function GetShortCutText: WideString; 
    function GetStyle: MsoButtonStyle; 
    function GetTag: WideString; 
    function GetVisible: WordBool; 
    procedure SetCaption(const Value: WideString); 
    procedure SetShortCutText(const Value: WideString); 
    procedure SetStyle(const Value: MsoButtonStyle); 
    procedure SetTag(const Value: WideString); 
    procedure SetVisible(const Value: WordBool); 
    function GetTooltipText: WideString; 
    procedure SetTooltipText(const Value: WideString); 
    function GetState: MsoButtonState; 
    procedure SetState(const Value: MsoButtonState); 
    function GetHyperlinkType: MsoCommandBarButtonHyperlinkType; 
    procedure SetHyperlinkType(const Value: MsoCommandBarButtonHyperlinkType); 
  protected 
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; 
  public 
    procedure Connect; override; 
    procedure ConnectTo(aServerInterface: _CommandBarButton); 
    procedure Disconnect; override; 
    procedure Delete;     property Caption: WideString read GetCaption write SetCaption; 
    property Visible: WordBool read GetVisible write SetVisible; 
    property State: MsoButtonState read GetState write SetState; 
    property Style: MsoButtonStyle read GetStyle write SetStyle; 
    property HyperlinkType: MsoCommandBarButtonHyperlinkType 
      read GetHyperlinkType write SetHyperlinkType; 
    property Tag: WideString read GetTag write SetTag; 
    property ShortCutText: WideString 
      read GetShortCutText write SetShortCutText; 
    property TooltipText: WideString read GetTooltipText write SetTooltipText;     property OnClick: TOfficeButtonClickEvent read FOnClick write FOnClick; 
  end; 
  TOfficeButtonClass = class of TOfficeButton;   TOfficeAddIn = class(TAutoObject, IDTExtensibility2) 
  private 
    FOfficeButtonClass: TOfficeButtonClass; 
    FExcelApp: TExcelApplication; 
    FOutlookApp: TOutlookApplication; 
    FWordApp: TWordApplication; 
  protected 
    procedure OnConnection( 
      const Application: IDispatch; ConnectMode: ext_ConnectMode; 
      const AddInInst: IDispatch; var custom: PSafeArray 
    ); virtual; safecall; 
    procedure OnDisconnection( 
      RemoveMode: ext_DisconnectMode; var custom: PSafeArray 
    ); virtual; safecall; 
    procedure OnAddInsUpdate(var custom: PSafeArray); virtual; safecall; 
    procedure OnStartupComplete(var custom: PSafeArray); virtual; safecall; 
    procedure OnBeginShutdown(var custom: PSafeArray); virtual; safecall; 
    function GetCommandBar( 
      aCommandBars: Office_TLB._CommandBars; aName: WideString; 
      aCreateOnDemand: WordBool; aCreatePos: MsoBarPosition = msoBarFloating 
    ): CommandBar; 
    function GetOfficeButton( 
      aCommandBar: CommandBar; aName: WideString; aCreateOnDemand: WordBool; 
      aOnClick: TOfficeButtonClickEvent; 
      aCreateCaption: WideString = ''; 
      aCreateStyle: MsoButtonStyle = msoButtonCaption; 
      aCreateVisible: WordBool = True; 
      aCreateControlType: MsoControlType = msoControlButton 
    ): TOfficeButton;     property OfficeButtonClass: TOfficeButtonClass 
      read FOfficeButtonClass write FOfficeButtonClass; 
  public 
    procedure Initialize; override;     property ExcelApp: TExcelApplication read FExcelApp; 
    property OutlookApp: TOutlookApplication read FOutlookApp; 
    property WordApp: TWordApplication read FWordApp; 
  end; implementation uses 
  SysUtils, Dialogs 
  {$IFDEF VER140} 
  , OleCtrls, Variants 
  {$ENDIF} 
  ; { TOfficeButton } procedure TOfficeButton.Connect; 
var 
  PUnknown: IUnknown; 
begin 
//  inherited Connect; 
  // connect the class to the office button 
  if FCommandBarButton = nil then 
  begin 
    PUnknown := GetServer; 
    ConnectEvents(PUnknown); 
    FCommandBarButton := PUnknown as _CommandBarButton; 
  end; 
end;

Answer 4

procedure TOfficeButton.ConnectTo(aServerInterface: _CommandBarButton); 
begin 
  // disconnect the class from the current office button 
  Disconnect; 
  // connect to the new office button 
  FCommandBarButton := aServerInterface; 
  ConnectEvents(FCommandBarButton); 
end; procedure TOfficeButton.Delete; 
begin 
  // delete the button from the office bar 
  FCommandBarButton.Delete(EmptyParam); 
end; procedure TOfficeButton.Disconnect; 
begin 
//  inherited Disconnect; 
  // disconnect the class from the current office button 
  if FCommandBarButton <> nil then 
  begin 
    DisconnectEvents(FCommandBarButton); 
    FCommandBarButton := nil; 
  end; 
end; function TOfficeButton.GetCaption: WideString; 
begin 
  Result := FCommandBarButton.Caption; 
end; function TOfficeButton.GetHyperlinkType: MsoCommandBarButtonHyperlinkType; 
begin 
  Result := FCommandBarButton.HyperlinkType; 
end; function TOfficeButton.GetShortCutText: WideString; 
begin 
  Result := FCommandBarButton.ShortcutText; 
end; function TOfficeButton.GetState: MsoButtonState; 
begin 
  Result := FCommandBarButton.State; 
end; function TOfficeButton.GetStyle: MsoButtonStyle; 
begin 
  Result := FCommandBarButton.Style; 
end; function TOfficeButton.GetTag: WideString; 
begin 
  Result := FCommandBarButton.Tag; 
end; function TOfficeButton.GetTooltipText: WideString; 
begin 
  Result := FCommandBarButton.TooltipText; 
end; function TOfficeButton.GetVisible: WordBool; 
begin 
  Result := FCommandBarButton.Visible; 
end; procedure TOfficeButton.InvokeEvent(DispID: TDispID; 
  var Params: TVariantArray); 
begin 
  inherited InvokeEvent(DispID, Params); 
  // react to the standard office button events 
  case DispID of 
    -1: Exit; 
     1: if Assigned(FOnClick) then 
       FOnClick(Params[0], Params[1]); 
  end; 
end; procedure TOfficeButton.SetCaption(const Value: WideString); 
begin 
  FCommandBarButton.Set_Caption(Value); 
end; procedure TOfficeButton.SetHyperlinkType( 
  const Value: MsoCommandBarButtonHyperlinkType); 
begin 
  FCommandBarButton.Set_HyperlinkType(Value); 
end; procedure TOfficeButton.SetShortCutText(const Value: WideString); 
begin 
  FCommandBarButton.Set_ShortcutText(Value); 
end; procedure TOfficeButton.SetState(const Value: MsoButtonState); 
begin 
  FCommandBarButton.Set_State(Value); 
end; procedure TOfficeButton.SetStyle(const Value: MsoButtonStyle); 
begin 
  FCommandBarButton.Set_Style(Value); 
end; procedure TOfficeButton.SetTag(const Value: WideString); 
begin 
  FCommandBarButton.Set_Tag(Value); 
end; procedure TOfficeButton.SetTooltipText(const Value: WideString); 
begin 
  FCommandBarButton.Set_TooltipText(Value); 
end; procedure TOfficeButton.SetVisible(const Value: WordBool); 
begin 
  FCommandBarButton.Set_Visible(Value); 
end; { TOfficeAddIn } function TOfficeAddIn.GetCommandBar( 
  aCommandBars: _CommandBars; aName: WideString; aCreateOnDemand: WordBool; 
  aCreatePos: MsoBarPosition = msoBarFloating 
): CommandBar; 
begin 
  Result := nil; 
  if aCommandBars = nil then 
    Exit; 
  try Result := aCommandBars.Item[aName]; except end; 
  if (Result = nil) and aCreateOnDemand then 
    Result := aCommandBars.Add(aName, aCreatePos, EmptyParam, EmptyParam); 
end; function TOfficeAddIn.GetOfficeButton( 
  aCommandBar: CommandBar; aName: WideString; aCreateOnDemand: WordBool; 
  aOnClick: TOfficeButtonClickEvent; aCreateCaption: WideString; 
  aCreateStyle: MsoButtonStyle; aCreateVisible: WordBool; 
  aCreateControlType: MsoControlType 
): TOfficeButton; 
var 
  OfficeButtonIntf: CommandBarControl; 
begin 
  Result := nil; 
  if aCommandBar = nil then 
    Exit; 
  OfficeButtonIntf := aCommandBar.FindControl( 
    EmptyParam, EmptyParam, aName, EmptyParam, EmptyParam 
  ); 
  if OfficeButtonIntf = nil then 
  begin 
    if aCreateOnDemand then 
    begin 
      OfficeButtonIntf := aCommandBar.Controls.Add( 
        aCreateControlType, EmptyParam, EmptyParam, EmptyParam, EmptyParam 
      ); 
      Result := FOfficeButtonClass.Create(nil); 
      Result.ConnectTo(OfficeButtonIntf as _CommandBarButton); 
      Result.Tag := aName; 
      Result.Caption := aCreateCaption; 
      Result.Style := aCreateStyle; 
      Result.Visible := aCreateVisible; 
      Result.OnClick := aOnClick; 
    end; 
  end else begin 
    Result := FOfficeButtonClass.Create(nil); 
    Result.ConnectTo(OfficeButtonIntf as _CommandBarButton); 
    Result.OnClick := aOnClick; 
  end; 
end; procedure TOfficeAddIn.Initialize; 
begin 
  inherited Initialize; 
  FOfficeButtonClass := TOfficeButton; 
  FExcelApp := nil; 
  FOutlookApp := nil; 
  FWordApp := nil; 
end; procedure TOfficeAddIn.OnAddInsUpdate(var custom: PSafeArray); 
begin 
  // nothing to be done in the base class 
  // will be called if the list of installed add-ins has changed 
end;

Answer 5

这属于AddIn技术，比如在Excel中实现：实现 IDTExtensibility2 接口，定义如下：    // _IDExtensibility2 接口
    procedure OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode;
                           const AddInInst: IDispatch; var custom: PSafeArray); safecall;
    procedure OnAddInsUpdate(var custom: PSafeArray); safecall;
    procedure OnStartupComplete(var custom: PSafeArray); safecall;
    procedure OnBeginShutdown(var custom: PSafeArray); safecall;
    procedure OnDisconnection(RemoveMode: ext_DisconnectMode; var custom: PSafeArray); safecall;在实现时，可在OnConnection中加入新的按钮或工具栏
按钮的事件响应，还需要自己写，需要使用 Advise 去联结。
然后在 HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins下加入你的Clsid项，并在新项下建4个字符串
1.CommandLineSafe, 0
2.Description, Clsid
3.FriendlyName, 随意写
4.LoadBehavior, 3注册后打开Excel后即可看到你新建的按钮或工具栏

Answer 6

To SoftWaiter
能不能说得详细一点
最好有源代码和操作步骤

Answer 7

你可以写一个COM组件试试，在其中实现_IDExtensibility2 接口就行了，很简单

Answer 8

我下了一个Office Add-in Express空控件但没有安装的序列号，谁有？