Автор: Cjp

В этом фрагменте кода создается кнопка на панели Internet Explorer'a, по нажатию на которую запускается ваша программа.

// Автор: Cjp.. 

Procedure CreateExplorerButton(Path: String);stdcall; 
// Путь в реестре. где содержится вся необходимая нам информация. 
// Если такого раздела  не существует, он будет создан без дополнительных сообщений
Const Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\'; 
Var Reg : TRegistry; 
Path: String; 
Path1: String; 
Merge: String; 
Begin 
      Path := 'c:\your program path'; 
      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','ButtonText'); 
              WriteString('MenuText','Tools Menu Item'); 
              WriteString('MenuStatusBar','Run Script'); 
              WriteString('ClSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); 
              WriteString('Default Visible','Yes'); 
              WriteString('Exec',Path+'\ProgramName.exe'); 
              WriteString('HotIcon',',4'); 
              WriteString('Icon',',4'); 
         end 
      Finally
         Reg.CloseKey; 
         Reg.Free; 
      End; 
End;