VPF::Своя панель инструментов в IE? - Форум программистов

45678

Дата 9.9.2004, 19:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!

Не знаете, как в IE влипить свою панель инструментов?

Illusion Dolphin

Дата 9.9.2004, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Добавление своей кнопки:

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;

Это сообщение отредактировал(а) Illusion Dolphin - 9.9.2004, 20:37

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

45678

Дата 9.9.2004, 20:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Еще раз повторяю: мне нужно влепить свой Тулбар, а не кнопку! Мне нужно в IE добавить сою панель со своими компонентами, как, например, это делает GoogliTolBar.

Illusion Dolphin

Дата 9.9.2004, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

Еще раз повторяю: мне нужно влепить свой Тулбар, а не кнопку!

И незачем так кричать... Лучше бы зарегистрировался smile

...
а) Смотрим в гугле:
http://www.google.com/search?q=%44%65%6C%7...%6F%6C%42%61%72
б)находим

Цитата

IE5Tools is a collection of 60+functions, that makes it easy to
configure Internet Explorer:

(* Explorer bars, Toolbar buttons, Menu items *)

function AddExplorerBar(Title, Url: string; BarSize: Int64; Vertical: Boolean): string;
function AddToolbarBtn(Visible: Boolean; ConnType: TConnType; BtnText, HotIcon, Icon, GuidOrPath: string): string;
function AddMenuItem(ConnType: TconnType; MenuText, StatusBarText, GuidOrPath: string; HelpMenu: Boolean): string;
procedure AddExtMenuItem(MenuText, Url: string; Context, Flags: DWORD);

********

в) Качаем
http://www.bsalsa.com/ie_tools.html

--------------------

sniron

Дата 10.9.2004, 02:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 28.3.2004

Репутация: нет
Всего: нет

Illusion Dolphin, а как потом с IE эту кнопку ее удалить?

Illusion Dolphin

Дата 10.9.2004, 07:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

а как потом с IE эту кнопку ее удалить

Удалить всё упоминание о ней из реестра.

Код


Reg := TRegistry.Create;
 with Reg do
 begin
  RootKey := HKEY_LOCAL_MACHINE;
  RegKeyPath := 'Software\Microsoft\Internet Explorer\Extensions';
  DeleteKey(RegKeyPath + TagID, True);
finally
 Reg.CloseKey;
 Reg.Free;
end;

Вроде так... если не так, то во второй половине для напишу, сейчас спешу...

--------------------

sniron

Дата 10.9.2004, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 28.3.2004

Репутация: нет
Всего: нет

Спасибо, почти все верно. Работает!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »