(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Создание собственной кнопки в панели 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;

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 27.11.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office 365 Бизнес. Подписка на 1 рабочее место на 1 год
Microsoft 365 Business Standard (corporate)
Microsoft Windows Professional 10, Электронный ключ
Microsoft 365 Apps for business (corporate)
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Мастерская программиста
Краткие описания программ и ссылки на них
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100