Назначение события кнопке, созданной в Internet Explorer

[artemavd]

Добрый день! Интересует такой вопрос. Я создаю кнопку в Internet Explorer (IE) так:

procedure CreateExplorerButton;
const
  TagID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  ProgramPath: string;
  RegKeyPath: string;
begin
  ProgramPath := 'D:\ERRORREADER\Project.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', 'Обработать в ER v.1');
      WriteString('MenuText', 'Обработать в ER v.1');
      WriteString('MenuStatusBar', '');
      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;

Вызываю данную процедуру так:

procedure TForm1.sBitBtn2Click(Sender: TObject);
begin
 CreateExplorerButton;
end;

Но, при нажатии на созданную в браузере кнопку, выдается ошибка, что не удается найти программу по пути, который находится в ProgramPath. Как назначить событие созданной кнопке? Может как-то можно написать

begin
...//тут код, который будет выполняться при нажатии на кнопку, созданную в браузере
end;

[)Игнат(]

Судя по всему, вы неверно указали путь к программе.
Я испытал ваш код, только в параметре ProgramPath написал
1 испытание - ProgramPath := 'http://programmersforum.ru';
2 испытание - ProgramPath := 'mailto:mymail@mail.ru';
3 испытание - ProgramPath := 'C:/WINDOWS/notepad.exe';
У меня при нажатии кнопки в первый раз открылся этот форум в браузере по умолчанию, во втором яндекс.мейл
в третьем - блокнот.

Как назначить событие созданной кнопке? Может как-то можно написать
Код:


begin
...//тут код, который будет выполняться при нажатии на кнопку, созданную в браузере
end;

Однако моих познаний Delphi пока мало, чтобы ответить на ваш вопрос.
Самому стало интересно
Буду следить за течением диалога.

[artemavd]

Хз, не знаю. Путь-то правильный был и существовал. Интересно...Может кто знает как надо сделать и назначить свой код к кнопке.

[Человек_Борща]

как вариант, открыть реестр и посмотреть как другие расширения прописывают себя....

[artemavd]

Мы выяснили, что возможно путь ошибочный у меня прописывался. Вопрос в том, можно ли как-то назначить кнопке событие и написать для нее код. Или bar-панель. Как это делает Download Master например. Его же кнопки наверняка выполняют код, который прописан в них.

[Пепел Феникса]

тогда пишите расширение IE. а не просто кнопочку в реестре.

[artemavd]

Ух, как все сложно-то оказывается