如何将做的程序加到IE的工具条上去，请高手指点，在线等......

Question

想将自己做的一个上网的小工具，加到IE的工具条上去，不知如何实现。我试着在注册表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions 加一项，但还是没成功，

Answer 1

interfaceunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,registry;type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var 
rg:Tregistry;
begin 
   rg:=Tregistry.create;
   rg.rootkey:=HKEY_LOCAL_MACHINE;
   rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
   rg.writestring('BUTTONTEXT',Edit1.text);
   rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
   rg.writestring('DEFAULT VISIBLE','YES');
   rg.writestring('EXEC',Edit2.text);
   rg.writestring('ICON',Edit3.text);
   rg.writestring('HOTICON',Edit4.text);
   rg.closekey;
   rg.free;
end;
{Edit1---4对应的是：
按钮提示信息  
要执行的应用程序路径 
按钮开始图标 
按钮浮动时的图标  }
end.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,registry;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var 
rg:Tregistry;
begin 
{Edit1---4对应的是：
按钮提示信息  
要执行的应用程序路径 
按钮开始图标 
按钮浮动时的图标  }
   rg:=Tregistry.create;
   rg.rootkey:=HKEY_LOCAL_MACHINE;
   rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-   101B-AFC0-4210102A8DA7}',true);
   rg.writestring('BUTTONTEXT',Edit1.text);
   rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
   rg.writestring('DEFAULT VISIBLE','YES');
   rg.writestring('EXEC',Edit2.text);
   rg.writestring('ICON',Edit3.text);
   rg.writestring('HOTICON',Edit4.text);
   rg.closekey;
   rg.free;
end;end.

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,registry;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var
rg:Tregistry;
begin 
{Edit1---4对应的是：
按钮提示信息  
要执行的应用程序路径 
按钮开始图标 
按钮浮动时的图标  }
   rg:=Tregistry.create;
   rg.rootkey:=HKEY_LOCAL_MACHINE;
   rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-   101B-AFC0-4210102A8DA7}',true);
   rg.writestring('BUTTONTEXT',Edit1.text);
   rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
   rg.writestring('DEFAULT VISIBLE','YES');
   rg.writestring('EXEC',Edit2.text);
   rg.writestring('ICON',Edit3.text);
   rg.writestring('HOTICON',Edit4.text);
   rg.closekey;
   rg.free;
end;end.

Answer 4

struggle813(深蓝大道) 你也不用发这么多次吧。

Answer 5

谢谢各位！To struggle813(深蓝大道) :
在注册表中{0713E8D2-850A-101B-AFC0-4210102A8DA7}是代表什么意思？如果别的程序
占用了这个Key,怎么办？如何加一个Key, Key name 有什么讲究吗？我随便取一个名好象
不行哦

Answer 6

To struggle813(深蓝大道) :
我试了，不行啊！！
还有，rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}')
'CLSID'是什么意思，能不能解释一下？
谢谢！

Answer 7

当然不行啊原码没对吗！CLSID没对啊！

Answer 8

To:coolfilm(苏飞工作室) 
CLSID是什么意思啊，该怎样设置，能不能讲清楚点？
多谢啦

Answer 9

http://upcode.codechina.com/soft_read.asp?id=893

Answer 10

谢谢cnhgj(戏子) ，谢谢各位！CLSID是什么意思呢？知道能说一下吗，

Answer 11

CLSID是一个键，后面的是键值