Пятница, 01.11.2024, 01:56

Delphi

Приветствую Вас Гость

Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сегодня были:
Самые активные пользователи

Меню сайта
Категории каталога
Звук и музыка [1]
Графика и игры [6]
Базы данных [1]
Стандартные компоненты [0]
3D графика [4]
Исходники [10]
DirectX и OpenGL [5]
Разное [1]
Интернет и сети [7]
Наш опрос
Вы программируете на Delphi
Всего ответов: 180
Главная » Статьи » Delphi » Интернет и сети

Своя кнопка в 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 |