IE工具栏加按钮并实现功能。(200分)

请问有那们高手知道如何在IE的工具栏里加上自己的按钮，并且执行相应的程序，谢谢了！

你的邮箱是？

就是通过修改注册表中的一些项。
最近一期的《电脑商情报》上介绍得很详细！

注册表!!ie里面很多设置都可以通过注册表来修改和添加的，搜索一下吧，一幕了然！

用我的『IE小精灵』吧, http://ph11.126.com 有货,好象还有点BUG,但是可以用的,也懒
地去改了。[]

就是修改注册表啦，我这儿有完整的代码，你mail!?

贴出来吧！

给你看一段技术文档，是通过修改注册表实现你的要求的。

只有IE5才支持

Note This tutorial describes how to add a toolbar button for all users. If you
want the toolbar button displayed
for the current user only, substitute HKEY_CURRENT_USER for HKEY_LOCAL_MACHINE in the
steps below.


; Create a valid globally unique identifier (GUID). You can use Guidgen.exe (which ships
; ; with Microsoft? Visual Studio?) or Uuidgen.exe (which ships in the Microsoft? Platform Software
; ; Development Kit(SDK). ).
; Create a new key (with the GUID as the name) in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>

; ; <Your GUID> is the valid GUID that you created in step 1.
;
; Optional. Create a new string value, Default Visible, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/Default Visible

; ; To make the toolbar button to appear on the Internet Explorer toolbar by default, set Default
; ; Visible to "Yes",
; ; otherwise set Default Visible to "No".
; ; Note If the user has customized the toolbar, the button will not appear on the
; ; toolbar automatically. The toolbar button
; ; will be added to the choices in the Customize Toolbar dialog box and will appear if the
; ; toolbar is reset.
;
; Create a new string value, ButtonText, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/ButtonText

; ; Set the value of ButtonText to the label you want for the toolbar button.
;
; Create a new string value, HotIcon, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/HotIcon

; ; Set the value of HotIcon to the full path of the .ico file that contains the
; ; three color icons.
;
; Create a new string value, Icon, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/Icon

; ; Set the value of Icon to the full path of the .ico file that contains the three
; ; grayscale icons.
;
; Optional. Provide support for multiple native languages (like French or Japanese). Complete
; ; the following steps to support different native languages:
; ; ; Determine the LCID of the native language you want to support. These values can be found
; ; ; ; in the Microsoft?
; ; ; ; Platform Software Development Kit(SDK).
; ; ; Create a new key, Lang####, using the LCID from the previous step in place of
; ; ; ; "####" in the registry under; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; ; ; Explorer/Extensions/<Your GUID>
; ; ; ; The result should look like:
; ; ; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/Lang####

; ; ; ; For example, the key name should be Lang0411 for a Japanese implementation, since the
; ; ; ; LCID for Japanese is 0411.
; ; ;
; ;
;


Adding the Details

After completing the initial step of creating a new registry key, you will add values
under the key. The values that you will need
and the other steps to follow depend on what the toolbar button is going to run. The
following list contains links to the sections
with the steps required to complete the addition of a toolbar button.


; COM Objects
; Explorer Bars
; Scripts
; Executable Files


COM Objects

The following steps are required to complete the creation of a toolbar button that
implements a COM object. If any
information (that isn't optional) is omitted, the toolbar button will not be displayed.

Note This tutorial describes how to add a toolbar button for all users. If you
want the toolbar button displayed for the current
user only, substitute HKEY_CURRENT_USER for HKEY_LOCAL_MACHINE in the steps below.


; Register the COM object.
; Create a new string value, CLSID, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/CLSID

; ; Set the value of CLSID equal to {1FBA04EE-3024-11d2-8F1F-0000F87ABD16}.
;
; Create a new string value, ClsidExtension, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/ClsidExtension

; ; Set the value of ClsidExtension equal to the GUID of the COM object.
;


In addition to the previous steps, the COM object must implement IOleCommandTarget.

If your COM object needs to access the DHTML Object Model of the page that Internet
Explorer is currently displaying, you
must implement IObjectWithSite.

The implementations of IOleCommandTarget's methods are standard, except for IOleCommandTarget::Exec.
The COM
object's IOleCommandTarget::Exec method is called with nCmdID=1 if the
toolbar button is clicked and nCmdID=2 if
the menu item is clicked. This difference allows developers to provide different behaviors
for the toolbar button and the menu
item.

When IObjectWithSite is implemented, Internet Explorer will call IObjectWithSite::SetSite
and pass it a pointer to IShellBrowser.

Explorer Bars

The following steps are required to complete the creation of a toolbar button that
opens an Explorer Bar. If any information
(that isn't optional) is omitted, the toolbar button will not be displayed.

Note This tutorial describes how to add a toolbar button for all users. If you
want the toolbar button displayed for the current
user only, substitute HKEY_CURRENT_USER for HKEY_LOCAL_MACHINE in the steps below.


; Create a new string value, CLSID, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/CLSID

; ; Set the value of CLSID equal to {E0DD6CAB-2D10-11D2-8F1A-0000F87ABD16}.
;
; Create a new string value, BandCLSID, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/BandCLSID

; ; Set the value of BandCLSID to the CLSID of the Explorer Bar you want to open.
;


Note All Explorer Bars have a menu item added to the View menu automatically.

Scripts

The following steps are required to complete the creation of a toolbar button that runs
a script. If any information (that isn't
optional) is omitted, the toolbar button will not be displayed.

Note This tutorial describes how to add a toolbar button for all users. If you
want the toolbar button displayed for the current
user only, substitute HKEY_CURRENT_USER for HKEY_LOCAL_MACHINE in the steps below.


; Create a new string value, CLSID, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/CLSID

; ; Set the value of CLSID equal to {1FBA04EE-3024-11D2-8F1F-0000F87ABD16}.
;
; Create a new string value, Script, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/Script

; ; Set the value of Script to the full path of the script that will be run.
;


To add a menu item in the Tools menu with the same functionality, see Scripts in the Adding Menu Items tutorial.

Executable Files

The following steps are required to complete the creation of a toolbar button that runs
an .exe file. If any information (that isn't
optional) is omitted, the toolbar button will not be displayed.

Note This tutorial describes how to add a toolbar button for all users. If you
want the toolbar button displayed for the current
user only, substitute HKEY_CURRENT_USER for HKEY_LOCAL_MACHINE in the steps below.


; Create a new string value, CLSID, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/CLSID

; ; Set the value of CLSID equal to {1FBA04EE-3024-11D2-8F1F-0000F87ABD16}.
;
; Create a new string value, Exec, in the registry under: HKEY_LOCAL_MACHINE/Software/Microsoft/Internet
; ; Explorer/Extensions/<Your GUID>
; ; The result should look like:
; ; HKEY_LOCAL_MACHINE/Software/Microsoft/Internet Explorer/Extensions/<Your GUID>/Exec

; ; Set the value of Exec to the full path of the .exe file that will be run.

To：鹦鹉
;
可不可以也给我一份,谢啦

lm1313@263.net

unit BandUnit;

interface

uses
; Windows, Sysutils, Messages, Registry, Shellapi, ActiveX, Classes, ComObj,
; ;Shlobj, Dialogs, Commctrl,ShDocVW,IEForm;

type
; TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)
; private
; ; ; frmIE:TForm1;
; ; ; m_pSite:IInputObjectSite;
; ; m_hwndParent:HWND;
; ; m_hWnd:HWND;
; ; m_dwViewMode:Integer;
; ; ; m_dwBandID:Integer;
; ;protected

; ;public
; ; {Declare IDeskBand methods here}
; ; ; function GetBandInfo(dwBandID, dwViewMode: DWORD; var pdbi: TDeskBandInfo):
; ; ; ; ;HResult; stdcall;
; ; ; function ShowDW(fShow: BOOL): HResult; stdcall;
; ; ; function CloseDW(dwReserved: DWORD): HResult; stdcall;
; ; ; function ResizeBorderDW(var prcBorder: TRect; punkToolbarSite: IUnknown;
; ; ; ; ;fReserved: BOOL): HResult; stdcall;
; ; ; function GetWindow(out wnd: HWnd): HResult; stdcall;
; ; ; function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;

; ; ; {Declare IObjectWithSite methods here}
; ; ; function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
; ; ; function GetSite(const riid: TIID; out site: IUnknown):HResult;stdcall;

; ; ; {Declare IPersistStream methods here}
; ; ; function GetClassID(out classID: TCLSID): HResult; stdcall;
; ; ; function IsDirty: HResult; stdcall;
; ; ; function InitNew: HResult; stdcall;
; ; ; function Load(const stm: IStream): HResult; stdcall;
; ; ; function Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;
; ; ; function GetSizeMax(out cbSize: Largeint): HResult; stdcall;
; end;

const
; Class_GetMailBand: TGUID = '{954F618B-0DEC-4D1A-9317-E0FC96F87865}';
; //以下是系统接口的IID
; IID_IUnknown: TGUID = (
; ; ; D1:$00000000;D2:$0000;D3:$0000;D4$C0,$00,$00,$00,$00,$00,$00,$46));
; IID_IOleObject: TGUID = (
; ; ; D1:$00000112;D2:$0000;D3:$0000;D4$C0,$00,$00,$00,$00,$00,$00,$46));
; IID_IOleWindow: TGUID = (
; ; ; D1:$00000114;D2:$0000;D3:$0000;D4$C0,$00,$00,$00,$00,$00,$00,$46));

; IID_IInputObjectSite : TGUID = (
; ; ; D1:$f1db8392;D2:$7331;D3:$11d0;D4$8C,$99,$00,$A0,$C9,$2D,$BF,$E8));
; sSID_SInternetExplorer : TGUID = '{0002DF05-0000-0000-C000-000000000046}';
; sIID_IWebBrowserApp : TGUID= '{0002DF05-0000-0000-C000-000000000046}';

; //面板所允许的最小宽度和高度。
; MIN_SIZE_X = 54;
; MIN_SIZE_Y = 22;
; EB_CLASS_NAME = 'GetMailAddress';
implementation

uses ComServ;


function TGetMailBand.GetWindow(out wnd: HWnd): HResult; stdcall;
begin
; ;wnd:=m_hWnd;
; ;Result:=S_OK;
end;

function TGetMailBand.ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
begin
; ;Result:=E_NOTIMPL;
end;

function TGetMailBand.ShowDW(fShow: BOOL): HResult; stdcall;
begin
; ;if m_hWnd<>0 then
; ; ; if fShow then
; ; ; ; ;ShowWindow(m_hWnd,SW_SHOW)
; ; ; else
; ; ; ; ;ShowWindow(m_hWnd,SW_HIDE);
; ;Result:=S_OK;
end;

function TGetMailBand.CloseDW(dwReserved: DWORD): HResult; stdcall;
begin
; ;if frmIE<>nil then
; ; ; frmIE.Destroy;
; ;Result:= S_OK;
end;

function TGetMailBand.ResizeBorderDW(var prcBorder: TRect;
; ; ; punkToolbarSite: IUnknown;fReserved: BOOL): HResult; stdcall;
begin
; ;Result:=E_NOTIMPL;
end;

function TGetMailBand.SetSite(const pUnkSite: IUnknown):HResult;stdcall;
var
; ;pOleWindow:IOleWindow;
; ;pOLEcmd:IOleCommandTarget;
; ;pSP:IServiceProvider;
; ;rc:TRect;
begin
; ;if Assigned(pUnkSite) then begin
; ; ; m_hwndParent := 0;

; ; ; m_pSite:=pUnkSite as IInputObjectSite;
; ; ; pOleWindow := PunkSIte as IOleWindow;
; ; ; //获得父窗口IE面板窗口的句柄
; ; ; pOleWindow.GetWindow(m_hwndParent);

; ; ; if(m_hwndParent=0)then begin
; ; ; ; ;Result := E_FAIL;
; ; ; ; ;exit;
; ; ; end;

; ; ; //获得父窗口区域
; ; ; GetClientRect(m_hwndParent, rc);

; ; ; if not Assigned(frmIE) then begin
; ; ; ; ;//建立TIEForm窗口，父窗口为m_hwndParent
; ; ; ; ;frmIE:=TForm1.CreateParented(m_hwndParent);

; ; ; ; ;m_Hwnd:=frmIE.Handle;

; ; ; ; ;SetWindowLong(frmIE.Handle, GWL_STYLE, GetWindowLong(frmIE.Handle,
; ; ; ; ; ; GWL_STYLE) Or WS_CHILD);
; ; ; ; ;//根据父窗口区域设置窗口位置
; ; ; ; ;with frmIE do begin
; ; ; ; ; ; Left :=rc.Left ;
; ; ; ; ; ; Top:=rc.top;
; ; ; ; ; ; Width:=rc.Right - rc.Left;
; ; ; ; ; ; Height:=rc.Bottom - rc.Top;
; ; ; ; ;end;
; ; ; ; ;frmIE.Visible := True;

; ; ; ; ;//获得与浏览器相关联的Webbrowser对象。
; ; ; ; ;pOLEcmd:=pUnkSite as IOleCommandTarget;
; ; ; ; ;pSP:=pOLEcmd as ;IServiceProvider;

; ; ; ; ;if Assigned(pSP)then begin
; ; ; ; ; ;pSP.QueryService(IWebbrowserApp, IWebbrowser2,frmIE.IEThis);
; ; ; ; ;end;
; ; ; end;
; ;end;

; ;Result := S_OK;
end;

function TGetMailBand.GetSite(const riid: TIID; out site: IUnknown):HResult;stdcall;
begin
; ;if Assigned(m_pSite) then result:=m_pSite.QueryInterface(riid, site)
; ;else
; ; ;Result:= E_FAIL;
end;

function TGetMailBand.GetBandInfo(dwBandID, dwViewMode: DWORD; var pdbi: TDeskBandInfo):
; ; ; HResult; stdcall;
begin
; ;Result:=E_INVALIDARG;
; ;if not Assigned(frmIE) then frmIE:=TForm1.CreateParented(m_hwndParent);
; ;if(@pdbi<>nil)then begin
; ; ; m_dwBandID := dwBandID;
; ; ; m_dwViewMode := dwViewMode;

; ; ; if(pdbi.dwMask and DBIM_MINSIZE)<>0 then begin
; ; ; ; ;pdbi.ptMinSize.x := MIN_SIZE_X;
; ; ; ; ;pdbi.ptMinSize.y := MIN_SIZE_Y;
; ; ; end;

; ; ; if(pdbi.dwMask and DBIM_MAXSIZE)<>0 then begin
; ; ; ; ;pdbi.ptMaxSize.x := -1;
; ; ; ; ;pdbi.ptMaxSize.y := -1;
; ; ; end;

; ; ; if(pdbi.dwMask and DBIM_INTEGRAL)<>0 then begin
; ; ; ; ;pdbi.ptIntegral.x := 1;
; ; ; ; ;pdbi.ptIntegral.y := 1;
; ; ; end;

; ; ; if(pdbi.dwMask and DBIM_ACTUAL)<>0 then begin
; ; ; ; ;pdbi.ptActual.x := 0;
; ; ; ; ;pdbi.ptActual.y := 0;
; ; ; end;

; ; ; if(pdbi.dwMask and DBIM_MODEFLAGS)<>0 then
; ; ; ; ;pdbi.dwModeFlags := DBIMF_VARIABLEHEIGHT;

; ; ; if(pdbi.dwMask and DBIM_BKCOLOR)<>0 then
; ; ; ; ;pdbi.dwMask := pdbi.dwMask and (not DBIM_BKCOLOR);
; ;end;
end;


function TGetMailBand.GetClassID(out classID: TCLSID): HResult; stdcall;
begin
; ;classID:= Class_GetMailBand;
; ;Result:=S_OK;
end;

function TGetMailBand.IsDirty: HResult; stdcall;
begin
; ;Result:=S_FALSE;
end;

function TGetMailBand.InitNew: HResult;
begin
; Result := E_NOTIMPL;
end;

function TGetMailBand.Load(const stm: IStream): HResult; stdcall;
begin
; ;Result:=S_OK;
end;

function TGetMailBand.Save(const stm: IStream; fClearDirty: BOOL): HResult; stdcall;
begin
; ;Result:=S_OK;
end;

function TGetMailBand.GetSizeMax(out cbSize: Largeint): HResult; stdcall;
begin
; ;Result:=E_NOTIMPL;
end;


//TIEClassFac类实现COM组件的注册
type
; ;TIEClassFac=class(TComObjectFactory) //
; ;public
; ; ; procedure UpdateRegistry(Register: Boolean); override;
; ;end;

procedure TIEClassFac.UpdateRegistry(Register: Boolean);
var
; ClassID: string;
; a:Integer;
begin
; ;inherited UpdateRegistry(Register);
; ;if Register then begin
; ; ;ClassID:=GUIDToString(Class_GetMailBand);
; ; ;with TRegistry.Create do
; ; ; ;try
; ; ; ; ;//添加附加的注册表项
; ; ; ; ;RootKey:=HKEY_LOCAL_MACHINE;
; ; ; ; ;OpenKey('/SOFTWARE/Microsoft/Internet Explorer/Toolbar',False);
; ; ; ; ;a:=0;
; ; ; ; ;WriteBinaryData(GUIDToString(Class_GetMailBand),a,0);
; ; ; ; ;OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Shell Extensions/Approved',True);
; ; ; ; ;WriteString (GUIDToString(Class_GetMailBand),EB_CLASS_NAME);
; ; ; ; ;RootKey:=HKEY_CLASSES_ROOT;
; ; ; ; ;OpenKey('/CLSID/'+GUIDToString(Class_GetMailBand),False);
; ; ; ; ;WriteString('',EB_CLASS_NAME);
; ; ; ;finally
; ; ; ; ;Free;
; ; ; ;end;
; ;end
; ;else begin
; ; ; with TRegistry.Create do
; ; ; try
; ; ; ; ;RootKey:=HKEY_LOCAL_MACHINE;
; ; ; ; ;OpenKey('/SOFTWARE/Microsoft/Internet Explorer/Toolbar',False);
; ; ; ; ;DeleteValue(GUIDToString(Class_GetMailBand));
; ; ; ; ;OpenKey('/Software/Microsoft/Windows/CurrentVersion/Shell Extensions/Approved',False);
; ; ; ; ;DeleteValue(GUIDToString(Class_GetMailBand));
; ; ; finally
; ; ; ; ;Free;
; ; ; end;
; ;end;
end;

initialization
; ;TIEClassFac.Create(ComServer, TGetMailBand, Class_GetMailBand,
; ; ; 'GetMailAddress', '', ciMultiInstance, tmApartment);
end.

unit IEForm;

interface

uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
; SHDocVw,MSHTML, StdCtrls;

type
; TForm1 = class(TForm)
; ; Button1: TButton;
; ; ComboBox1: TComboBox;
; ; procedure FormResize(Sender: TObject);
; ; procedure Button1Click(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; IEThis:IWebbrowser2;
; ; { Public declarations }
; end;

var
; Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormResize(Sender: TObject);
begin
; With Button1 do begin
; ; Left := 0;
; ; Top := 0;
; ; Height:=Self.ClientHeight;
; end;
; With ComboBox1 do begin
; ; Left := Button1.Width +3;
; ; Top := 0;
; ; Height:=Self.ClientHeight;
; ; Width:=Self.ClientWidth - Left;
; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
; doc:IHTMLDocument2;
; all:IHTMLElementCollection;
; len,i,flag:integer;
; item:IHTMLElement;
; vAttri:Variant;
begin
MessageBox(Self.Handle,'啊韬好爱你哟!~-~','信息',MB_ICONINFORMATION+MB_OK);
; if Assigned(IEThis)then begin
; ; ComboBox1.Clear;
; ; //获得Webbrowser对象中的文档对象
; ; doc:=IEThis.Document as IHTMLDocument2;
; ; //获得文档中所有的HTML元素集合
; ; all:=doc.Get_all;

; ; len:=all.Get_length;

; ; //访问HTML元素集合中的每一个元素
; ; for i:=0 to len-1 do begin
; ; ; item:=all.item(i,varempty) as IHTMLElement;
; ; ; //如果该元素是一个链接
; ; ; if item.Get_tagName = 'A'then begin
; ; ; ; flag:=0;
; ; ; ; vAttri:=item.getAttribute('protocol',flag); ; ; //获得链接属性
; ; ; ; //如果是mailto链接则将链接的目标地址添加到ComboBox1
; ; ; ; if vAttri = 'mailto:'then begin
; ; ; ; ; vAttri:=item.getAttribute('href',flag);
; ; ; ; ; ComboBox1.Items.Add(vAttri);
; ; ; ; end;
; ; ; end;
; ; end;
; end;
end;

end.

unit MailIEBand_TLB;

// ************************************************************************ //
// WARNING ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// ------- ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// The types declared in this file were generated from data read from a ; ; ;
// Type Library. If this type library is explicitly or indirectly (via ; ; ; ;
// another type library referring to this type library) re-imported, or the ;
// 'Refresh' command of the Type Library Editor activated while editing the ;
// Type Library, the contents of this file will be regenerated and all ; ; ; ;
// manual modifications will be lost. ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// ************************************************************************ //

// PASTLWTR : $Revision: ; 1.88.1.0.1.0 ;$
// File generated on 2001-9-27 0:34:11 from Type Library described below.

// ************************************************************************ //
// Type Lib: E:/Borland/Delphi5/Projects/新建文件夹 (3)/MailIEBand.tlb (1)
// IID/LCID: {B92DC336-3788-4DDD-83C2-5718036D6BE5}/0
// Helpfile:
// DepndLst:
// ; (1) v2.0 stdole, (D:/WINNT/System32/stdole2.tlb)
// ; (2) v4.0 StdVCL, (D:/WINNT/System32/STDVCL40.DLL)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used: ; ; ; ;
// ; Type Libraries ; ; : LIBID_xxxx ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// ; CoClasses ; ; ; ; ;: CLASS_xxxx ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// ; DISPInterfaces ; ; : DIID_xxxx ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// ; Non-DISP interfaces: IID_xxxx ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
// *********************************************************************//
const
; // TypeLibrary Major and minor versions
; MailIEBandMajorVersion = 1;
; MailIEBandMinorVersion = 0;

; LIBID_MailIEBand: TGUID = '{B92DC336-3788-4DDD-83C2-5718036D6BE5}';


implementation

uses ComObj;

end.
program Project1;

uses
; Forms,
; IEForm in 'IEForm.pas' {Form1};

{$R *.RES}

begin
; Application.Initialize;
; Application.CreateForm(TForm1, Form1);
; Application.Run;
end.
library MailIEBand;

uses
; ComServ,
; BandUnit in 'BandUnit.pas',
; IEForm in 'IEForm.pas' {Form1},
; MailIEBand_TLB in 'MailIEBand_TLB.pas';

exports
; DllGetClassObject,
; DllCanUnloadNow,
; DllRegisterServer,
; DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin
end.

隔了一天没上大富翁，今天一来就看到这么多的回答，谢谢大家的关心！[]

鹦鹉，
我的Email是zhzdl@sina.com.cn
麻烦你发给我，谢谢了。

谢谢各位富翁的帮助哦^o^