API - criar botao no internet explorer

Top  Previous  Next

// criar botão no IExplorer do Windows.

// testado na versão 6 - 100%

procedure CreateExplorerButton(const LinhadeComando, TextoBotao, TextoMenu, Icone1, Icone2: string); stdcall;

const

  Local = 'Software\Microsoft\Internet Explorer\Extensions\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';

var

  Reg: TRegistry;

Begin

//  Path := 'c:\your program path';

  Reg := TRegistry.Create;

  with Reg do

  try

   RootKey := HKEY_LOCAL_MACHINE;

   OpenKey(Local, True);

   WriteString('ButtonText', TextoBotao);

   WriteString('MenuText'  , TextoMenu);

   WriteString('Exec'      , LinhadeComando);

   WriteString('HotIcon'   , Icone1);

   WriteString('Icon'      , Icone2);

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

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

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

  finally

    Reg.CloseKey;

    Reg.Free;

  end;

end;

 

// use

procedure TForm1.Button1Click(Sender: TObject);

begin

  CreateExplorerButton('g:\sistemas\PesquisaDicas.exe''Dicas''Dicas de Delphi''H:\Temp\Lamp.ico''H:\Temp\Lamp.ico');

end;