Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

как добавить свою кнопку в бар Internet Explorer a   Найти похожие ветки 

← →
Gabriel   (2003-09-14 03:49) [0]

подскажите сабж.

---

← →
mfender   (2003-09-14 05:24) [1]

procedure TForm1.FormCreate(Sender: TObject);
const
ExCMD = "\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\";
HIcon: string = <путь к иконке>;
Icon: string = <путь к иконке>;
var Rg: TRegistry;
Path: string;
RgKey: string;
HIcon: string;
begin
Path := <путь к запускаемой программе>;
Rg := TRegistry.Create;
try
with Rg do
begin
RootKey := HKEY_LOCAL_MACHINE;
RgKey := "Software\Microsoft\Internet Explorer\Extensions";
OpenKey(RgKey + ExCMD, True);
WriteString("ButtonText", "Моя кнопка");
WriteString("MenuText", "Мой текст в менюшке");
WriteString("MenuStatusBar", "Для статуса");
WriteString("ClSid", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}");
WriteString("Default Visible", "Yes");
WriteString("Exec", Path);
WriteString("HotIcon", HIcon);
WriteString("Icon", Icon);
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;

Примерно так. Если что-то забыл, открой сам эти ключи и посмотри.

---

← →
mfender   (2003-09-14 05:27) [2]

В догонку. В секции try...finally смотри. Описочка. Надо бы Rg.CloseKey и Rg.Free соответственно

---

← →
Gabriel   (2003-09-15 00:11) [3]

ок сенкс. Теперь возникает второй вопрос :)), кнопка добавляется в меню доступных кнопок, то есть ее можно добавить руками, а как сделать чтобы она сразу добавлялась.

---

← →
Gabriel   (2003-09-15 00:23) [4]

а не, все, не надо, все пашет глюка была.

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.009 c