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

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

// Автор: Cjp.. 

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;

1.

Аноним

3 мая 2006, 12:40:35

Все ok! Спасиб за код, то что надо!!!
Молоток!

2.

Аноним

18 января 2006, 19:31:14

что за бред, вот вам нормальная процедура, (для начинающих) и не заюудьте добавить uses Registry

procedure CreateExplorerButton(FileName, Caption, IconFileName: string);
const Tagid = '{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg : TRegistry;
Key: string;
begin
Reg := TRegistry.CReate;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
Key := 'Software\Microsoft\Internet Explorer\Extensions\' + Tagid;
OpenKey(Key,True);
WriteString('ButtonText', Caption);
WriteString('MenuText', Caption);
WriteString('MenuStatusBar', Caption);
WriteString('ClSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible','YES');
WriteString('Exec', FileName);
WriteString('HotIcon', IconFileName);
WriteString('Icon', IconFileName);
Reg.CloseKey;
Reg.Free;
end;
end;

3.

Аноним

18 января 2006, 18:34:24

Да всё нормально, как раз то что нужно Ж)
конечно я бы и сам написал, тока не знал какие ключи юзать

4.

Аноним

12 октября 2005, 23:07:08

And can you write the same on VB???

5.

Аноним

4 июля 2004, 09:23:47

Ну, создание кнопок это хорошо, только этот раздел про Вижул Бэйсик, а код на паскале/дельфи...