|
Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 Сегодня были: |
Самые активные пользователи | |
|
|
Своя кнопка в Internet Explorer
- 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; После выполнения этого кода достаточно просто запустить IE.
|
Категория: Интернет и сети | Добавил: Ivin (23.03.2008)
|
Просмотров: 2797
| Рейтинг: 0.0/0 |
|
|
|