Artigos Delphi 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;