В этом фрагменте кода создается кнопка на панели 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;