Створення власної кнопки в панелі 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: = "SoftwareMicrosoftInternet ExplorerExtensions";
              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;

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*