Dicas - Como adicionar um botão à barra de ferramentas do IE

Como adicionar um botão à barra de ferramentas do IE

Aqui está como adicionar um botão à barra de ferramentas do Internet Explorer:

1.ButtonText = Texto na parte inferior do botão;

2.MenuText = Item do menu Ferramentas com referência a seu programa;

3.MenuStatusBar = *Ignorar*

4.CLSID = Seu classID (deve ser único). Você pode utilizar GUIDTOSTRING para criar um novo CLSID (para cada botão);

5.Default Visible = Mostra o botão;

6.Exec = Path para o programa a ser executado;

7.Hoticon = (Evento Mouse Over) Índice da Imagem em shell32.dll;

8.Icon = Índice da Imagem em shell32.dll.

Após você rodar o código abaixo, inicia o IE. Você precisa ir em Exibir|Barra de Ferramentas|Customizar e mover seu botão de “Botões disponíveis” para “Botões da barra de ferramentas”. O arquivo Project1.exe é um projeto que mostra uma mensagem na criação do formulário. Esse arquivo será executado quando clicarmos no botão na barra do Internet Explorer.

uses Registry;

procedure CreateExplorerButton;

const

  TagID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';

var

  Reg: TRegistry;

  ProgramPath: string;

  RegKeyPath: string;

begin

  ProgramPath := 'C:\Project1.exe';

  Reg := TRegistry.Create;

  try

  with Reg do

  begin

RootKey := HKEY_LOCAL_MACHINE;

RegKeyPath := 'Software\Microsoft\Internet Explorer\Extensions';

OpenKey(RegKeyPath + TagID, True) ;

WriteString('ButtonText', 'Texto do botão') ;

WriteString('MenuText', 'Your program Menu text') ;

WriteString('MenuStatusBar', 'Run Script') ;

WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}') ;

WriteString('Default Visible', 'Yes') ;

WriteString('Exec', ProgramPath) ;

WriteString('HotIcon', ',4') ;

WriteString('Icon', ',4') ;

  end

  finally

    Reg.CloseKey;

    Reg.Free;

  end;

end;