Meu botão no I.E

19/12/2003

1

[color=darkblue:6ecb8033b7]Gostaria de criar um botão no Internet Explorer, que ao ser clicado abrisse uma página de internet na mesma janela onde se encontra o botão.[/color:6ecb8033b7]
Grato pela atenção,
Túlio Sérgio


Responder

Posts

19/12/2003

Cebikyn

Assim:

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;


Nas linhas marcadas com ´<--´, você escolhe um ícone para seu botão. Colocando do jeito que está, o IE mostrará o ícone 4 da shell32.dll. Vc pode colocar um ícone que está em seu programa, trocando a linha por:

WriteString(´HotIcon´, ´C:\SeuPrograma\SeuPrograma.exe,1´);

Note que a primeira linha marcada especifica qual ícone será exibido qnd o mouse passar por cima do botão, e a segunda especifica qual o ícone “normal”

[b:446cffb9e1]Funciona para Internet Explorer 5.0 ou superior.[/b:446cffb9e1]


Responder