问题: 如何生成同google所在ie浏览器上面生成的工具条？ ( 积分: 50 )
分类: Internet/TCPIP
来自: 狼牙, 时间: 2002-08-06 15:07:00, ID: 1246272
如何生成同google所在ie浏览器上面生成的查询工具条？
他是如何实现的？
有哪位大侠讲讲。
来自: wolfsong, 时间: 2002-08-06 15:13:00, ID: 1246287
ie上有google的工具条吗？
来自: mdc, 时间: 2002-08-06 15:50:00, ID: 1246416
给分吧，没发现。
来自: 狼牙, 时间: 2002-08-06 16:36:00, ID: 1246549
倒。我忘了说明一下：去www.google.com，安装其搜寻工具栏。就像网易以前的一样。
来自: wolfsong, 时间: 2002-08-07 9:41:00, ID: 1247882
我一直用myi上网，安装了也没有：-）
http://www.euromind.com/iedelphi/ie5tools.htm
你看是不是你要的
来自: 狼牙, 时间: 2002-08-07 10:15:00, ID: 1247962
倒。比方说，如果你装了新版的flashget后，在ie的查看，工具里面就有flashget bar的
选项，如果裝了金山快议，也有同样的选项。大家看看如何实现的。
来自: 江南大米, 时间: 2002-08-07 10:28:00, ID: 1248015
http://www.google.com/intl/zh-CN/about.html
就是在google的首页上，下方有个google大全。进入以后的"条条大路通google"——OK？
来自: dragonhu, 时间: 2002-08-07 10:35:00, ID: 1248037
关注，查找注册表在
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/Extensions/
下可以看到相关项的信息，但使用什么API添加的不清楚。
来自: wolfsong, 时间: 2002-08-07 10:37:00, ID: 1248039
估计是这个：我刚用google工具条找的，你自己试试，成功不成功多少给点分，
不然白找了：-）
往IE中嵌入工具条
我们首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr；
然后建立一个COM Object，将其保存为BandUnit.pas；然后建立一个Form，
这个窗口将作为子窗口显示在IE工具栏中，将窗口的BorderStyle属性改为bsNone，
添加一个TButton组件和一个TComboBox组件，将TButton的Caption属性改为获取全部，
然后将窗口文件其保存为IEForm.pas。
在BandUnit中，需要建立一个实现上面提到的接口的TComObject对象。如下：
TGetMailBand = class(TComObject, IDeskBand, IObjectWithSite, IPersistStreamInit)
另外由于需要在COM服务器注册时添加一些注册表信息，
所以还需要建立一个继承自TComObjectFactory类的对象，
在对象的UpdateRegistry事件中编写代码添加附加的注册表信息。
下面的程序清单1-6到1-8是实现COM服务器的全部程序代码：
程序清单1-6 MailIEBand.dpr
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.
程序清单1-7 BandUnit.pas
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 frm
来自: 狼牙, 时间: 2002-08-14 9:24:00, ID: 1263021
接受答案了.
得分大富翁: wolfsong
