Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11642
Последний выпуск: 19.06.2015

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

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

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
Ну, создание кнопок это хорошо, только этот раздел про Вижул Бэйсик, а код на паскале/дельфи...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог