Форум: "Сети";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
ВнизКнопки в Internet Explorer Найти похожие ветки
← →
Лазуточкин Сергей (2003-07-31 12:03) [0]Здравствуйте!
Скажите пожалуйста, если кто знает, как сделать свою кнопку в Internet explorer!
И еще одна проблема: нужно, что бы при нажатии этой кнопки отключалось или включалось отображение графики в броузере!
Очень нада, плиз!!!
← →
xShadow (2003-07-31 15:45) [1]Как добавить кнопку в панель инструментов IE.
Компилятор: Delphi
1. ButtonText = Всплывающая подсказка к кнопке
2. MenuText = Текст, который будет использован для пункта в меню "Сервис"
3. MenuStatusbar = *Ignore*
4. CLSID = Ваш уникальный classID. Для создания нового CLSID (для каждой кнопки) можно использовать GUIDTOSTRING.
5. Default Visible := Показать ей.
6. Exec := Путь к Вашей программе.
7. Hoticon := иконка из shell32.dll когда мышка находится над кнопкой
8. 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");
( "Icon", ",4") Как добавить кнопку в панель инструментов IE.
Компилятор: Delphi
1. ButtonText = Всплывающая подсказка к кнопке
2. MenuText = Текст, который будет использован для пункта в меню "Сервис"
3. MenuStatusbar = *Ignore*
4. CLSID = Ваш уникальный classID. Для создания нового CLSID (для каждой кнопки) можно использовать GUIDTOSTRING.
5. Default Visible := Показать ей.
6. Exec := Путь к Вашей программе.
7. Hoticon := иконка из shell32.dll когда мышка находится над кнопкой
8. 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.
Вот тебе кнопка в IE дальше копай сам...
← →
Лазуточкин Сергей (2003-08-01 09:11) [2]Очень благодарен!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c