Delphi-Help

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;