delphi下的Bho工具栏显示（收藏）

 http://blog.csdn.net/cathyeagle/archive/2004/09/22/113557.aspx  

function   TGetMailBand.SetSite(const   pUnkSite:   IUnknown):HResult;stdcall;  
  这个函数里，加下面这句  
      (pUnkSite   as   IWebbrowser2).ShowBrowserBar(Class_GetMailBand,   True,   0);    
   
  放在  
      Result   :=   S_OK;    
  end;  
  前面应该就可了    
   
  如果编译有问题，就   uses   Shdocvw,   ActiveX;

加如下变量：  
  var  
      vaClsID,   vaEnabled,   vaDummy:   Olevariant;  
  begin  
   
      ...  
   
   
      vaCLSID   :=   Class_GetMailBand;  
      vaEnabled   :=   True;  
      vaDummy   :=   0;  
      (pUnkSite   as   IWebbrowser2).ShowBrowserBar(vaCLSID,   vaEnabled,   vaDummy);  
      Result   :=   S_OK;  
  end;  

 http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q255/9/20.ASP&NoWebContent=1