Создание собственной кнопки в панели Internet Explorer

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

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;


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8152