DBR Delphi-Ecke

// Hiermit kann man dem Internet-Explorer einen Button sowie
// einen Menü-Eintrag unter "Extras" hinzufügen, bei dessen
// Anklicken ein bestimmtes Programm ('d:\dbr_prog.exe') ausgeführt
// wird. Es müssen zwei Icons (16x16) zur Verfügung gestellt werden;
// eins für den Normalzustand ('Icon') und eins für das Überstreichen
// mit der Maus ('HotIcon').

// Getestet mit D4 unter WinME bei IE 5.5

uses registry; 
 
function IE_zufuegen: boolean; 
var 
  Reg: TRegistry; 
begin 
  result := false; 
  Reg := TRegistry.create; 
  try 
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Extensions\' + 
      '{42800000-FFFF-0000-0000-428956031850}', True) 
      then begin 
      Reg.WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); 
      Reg.WriteString('ButtonText', 'DBR'); 
      Reg.WriteString('MenuText', '&DBR'); 
      Reg.WriteString('Default Visible', 'YES'); 
      Reg.WriteString('Icon', 'd:\icon2\dbr16.ico,0'); 
      Reg.WriteString('HotIcon', 'd:\icon2\dbr16h.ico,0'); 
      Reg.WriteString('Exec', 'd:\dbr_prog.exe'); 
      result := true; 
    end; 
  finally 
    Reg.CloseKey; 
    Reg.Free; 
  end; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not IE_zufuegen then showmessage('FEHLER'); 
end;