internet explorere hoticon eklemek

function IEButonukoy(ProgramDizini: string;Programadi: string;Simge: string;Simge1: string;Caption: string):boolean;
const
  KeyDegeri = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  Dizin: string;
  Acilacak: string;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := $80000002; //HKEY_LOCAL_MACHINE
      Dizin := 'Software\Microsoft\Internet Explorer\Extensions';
      Acilacak := Dizin + KeyDegeri;
      OpenKey(Acilacak, True);
      WriteString('ButtonText', Caption);
      WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
      WriteString('Default Visible', 'Yes');
      WriteString('Exec', ProgramDizini + Programadi);
      WriteString('HotIcon', simge1);
      WriteString('Icon', simge);
    end
  finally
    Reg.CloseKey;
    Reg.Free;
    result:=true;
  end;
end;

function IEButonuSil:boolean;
const
  KeyDegeri = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  Acilacak,dizin: string;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := $80000002; //HKEY_LOCAL_MACHINE
      Dizin := 'Software\Microsoft\Internet Explorer\Extensions';
      Acilacak := Dizin + KeyDegeri;
      DeleteKey(Dizin + KeyDegeri);
end
  finally
    Reg.CloseKey;
    Reg.Free;
    result:=true;
  end;
end;

//kullanımı

//ekleme olayı
IEButonukoy('c:\windows\desktop\','programim.exe','c:\windows\desktop\dprogramim.ico','c:\windows\desktop\programim.ico','Benim programim');

//silme
IEButonuSil;