Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Своя кнопка в Internet Explorer

  • ButtonText = Всплывающая подсказка к кнопке
  • MenuText = Текст, который будет использован для пункта в меню "Сервис"
  • MenuStatusbar = *Ignore*
  • CLSID = Ваш уникальный classID. Для создания нового CLSID (для каждой кнопки) можно использовать GUIDTOSTRING.
  • Default Visible := Показать ей.
  • Exec := Путь к Вашей программе.
  • Hoticon := иконка из shell32.dll когда мышка находится над кнопкой
  • Icon := иконка из shell32.dll

 procedure CreateExplorerButton;
 const
   TagID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
 var
   Reg: TRegistry;
   ProgramPath: string;
   RegKeyPath: string;
 begin
   ProgramPath := 'c:\folder\exename.exe';
   Reg := TRegistry.Create;
   try
     with Reg do
     begin
       RootKey := HKEY_LOCAL_MACHINE;
       RegKeyPath := 'Software\Microsoft\Internet Explorer\Extensions';
       OpenKey(RegKeyPath + TagID, True);
       WriteString('ButtonText', 'Your program Button text');
       WriteString('MenuText', 'Your program Menu text');
       WriteString('MenuStatusBar', 'Run Script');
       WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
       WriteString('Default Visible', 'Yes');
       WriteString('Exec', ProgramPath);
       WriteString('HotIcon', ',4');
       WriteString('Icon', ',4');
     end
   finally
     Reg.CloseKey;
     Reg.Free;
   end;
 end;
 

После выполнения этого кода достаточно просто запустить IE.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS