Кнопка программы в IE

procedure CreateExplorerButton(Path: string); 
 

 
const 
  Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\'; 
var 
  Reg: TRegistry; 
  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;

Взято из https://forum.sources.ru

Автор: Rouse_