如何把程序图标放到IE工具栏中？

Question

如何把程序图标放到IE工具栏中？Delphi程序安装好后如何实现该功能，请指教？应客户需要要实现该功能。

Answer 1

{   
  　在IE浏览器的工具菜单上添加按钮   
  　   
  　这是一个小例子，示范如何在IE(3.0以上版本)的工具菜单上添加按钮。   
  　   
  　属性赋值：   
  　BottonText:=按钮上要显示的文字。   
  　MenuText:=IE菜单Tool选项上的文字，指向你的程序。   
  　MenuStatusbar:=脚本选项(本例忽略不用)。   
  　CLSID:=你的classID。   
  　　classID比较复杂，本例不作说明，只要记住它是唯一的。   
  　　可以用GUIDTOSTRING来创建一个新的CLSID(使用ActiveX单元)。   
  　Default   Visible:=显示   
  　Exec:=你要执行的程序路径   
  }   
    
    
  procedure   CreateExplorerButton(Path:   string);   
  const   
      Tagit   =   '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';   
  var   
      Reg:   TRegistry;   
      Path:   string;   
      Path1:   string;   
      Merge:   string;   
  begin   
      Path   :=   'c:\your_program_path';   
      Reg   :=   TRegistry.Create;   
      try   
          with   Reg   do   
          begin   
              RootKey   :=   HKEY_LOCAL_MACHINE;   
              Path1   :=   'Software\Microsoft\Internet   Explorer\Extensions';   
              Merge   :=   Path1   +   Tagit;   
              OpenKey(Merge,   True);   
              WriteString('ButtonText',   'ButtonText');   
              WriteString('MenuText',   'Tools   Menu   Item');   
              WriteString('MenuStatusBar',   'Run   Script');   
              WriteString('ClSid',   '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');   
              WriteString('Default   Visible',   'Yes');   
              WriteString('Exec',   Path   +   '\ProgramName.exe');   
              WriteString('HotIcon',   ',4');   
              WriteString('Icon',   ',4');   
          end   
      finally   
          Reg.CloseKey;   
          Reg.Free;   
      end;   
  end;   
//一句话就是修改注册表