Fórum Meu botão no I.E #202157

const
  Tagit = ´\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\´;
var
  Reg: TRegistry;
  Path1: string;
  Merge: string;
begin
  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´, ´Texto do Botão´);
      WriteString(´MenuText´, ´Texto do Botão´);
      WriteString(´MenuStatusBar´, ´Texto para a Barra de Status do  IE´);
      WriteString(´ClSid´, ´{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}´);
      WriteString(´Default Visible´, ´Yes´);
      WriteString(´Exec´, ´http://www.clubedelphi.com.br/´);
      WriteString(´HotIcon´, ´,4´); // <--
      WriteString(´Icon´, ´,4´); // <--
    end
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;