請問如何在 Outlook Express 6/Outlook 2003/2007 上嵌入一個按鈕(Add-in程式) ?

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

 
綜合數篇文章, 寫出了這段程式碼, 但是在 Outlook Express 上沒有看到新增的按鈕, 請問有人知道問題在哪嗎 ? 謝謝
[code delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI,
//ActiveX,
//ComObj,
//ComServ,
//Registry,
//SHLOBJ,
CommCtrl; // TTBBUTTON

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
TB_BTN_NEWFOLDER = 40962;
var
hWndToolbar, wnd: HWND;
// tbInfo: TTBButtonInfoA;
HandleToolbarWnd: HWND;

OEHandle : HWND; // Outlook Express Handle
SizableRebarHandle : HWND;
ReBarWindow32Handle : HWND;
ToolbarWindow32Handle : HWND;
tbInfo: TTBButtonInfoA;

BtnInfo: TTBBUTTON;
begin
OEHandle := FindWindow('Outlook Express Browser Class', nil);
if OEHandle <> 0 then // Outlook Express 是否啟動
begin
//prepare your BtnInfo
// HandleToolbarWnd:= FindWindowEx(ParentWndHandle, 0, 'ToolbarWindow32', nil);
// HandleToolbarWnd:= FindWindowEx(OEHandle, 0, 'ToolbarWindow32', nil);
// SendMessage(HandleToolbarWnd, TB_INSERTBUTTON, IndexOfBtn, LParam(@BtnInfo));
// SendMessage(HandleToolbarWnd, TB_INSERTBUTTON, 1, LParam(@BtnInfo));

// GetWnd = FindWindowEx(GetWnd, 0&, WndClassB, vbNullString)
SizableRebarHandle := FindWindowEx(OEHandle, 0, 'SizableRebar', nil);
if SizableRebarHandle <> 0 then
begin
// GetWnd = FindWindowEx(GetWnd, 0&, WndClassC, vbNullString)
ReBarWindow32Handle := FindWindowEx(SizableRebarHandle, 0, 'ReBarWindow32', nil);
if ReBarWindow32Handle<>0 then
begin
// GetWnd = FindWindowEx(GetWnd, 0&, WndClassD, vbNullString)
ToolbarWindow32Handle := FindWindowEx(ReBarWindow32Handle, 0, 'ToolbarWindow32', nil);
if ToolbarWindow32Handle<>0 then
begin
Label1.Caption := 'Outlook Express is running...';
//SendMessage(HandleToolbarWnd, TB_INSERTBUTTON, IndexOfBtn, LParam(@BtnInfo));
//SendMessage(HandleToolbarWnd, TB_INSERTBUTTON, 1, LParam(@BtnInfo));
SendMessage(hWndToolbar, TB_SETBUTTONINFO, TB_BTN_NEWFOLDER ,LParam(@tbinfo));
end
else
begin
Label1.Caption := 'Outlook Express does not run.';
end;
end;
end;
end;

end;

end.

[/code]

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄