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

div.main {margin-left: 20pt; margin-right: 20pt} Создание собственной кнопки в панели 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 := 'SoftwareMicrosoftInternet ExplorerExtensions'; 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;

Назад в раздел

Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!