как добавить свою кнопку в бар 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]

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

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