社区
Delphi
帖子详情
如何将做的程序加到IE的工具条上去,请高手指点,在线等......
rsnm
2003-09-11 02:06:10
想将自己做的一个上网的小工具,加到IE的工具条上去,不知如何实现。
我试着在注册表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions 加一项,但还是没成功,
...全文
97
18
打赏
收藏
如何将做的程序加到IE的工具条上去,请高手指点,在线等......
想将自己做的一个上网的小工具,加到IE的工具条上去,不知如何实现。 我试着在注册表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions 加一项,但还是没成功,
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
18 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
IORILI
2003-09-30
打赏
举报
回复
CLSID是一个键,后面的是键值
rsnm
2003-09-30
打赏
举报
回复
谢谢cnhgj(戏子) ,谢谢各位!
CLSID是什么意思呢?知道能说一下吗,
newmanJB
2003-09-30
打赏
举报
回复
up
cnhgj
2003-09-30
打赏
举报
回复
http://upcode.codechina.com/soft_read.asp?id=893
seion
2003-09-29
打赏
举报
回复
up
邹工
2003-09-29
打赏
举报
回复
gz
rsnm
2003-09-17
打赏
举报
回复
大虾们,有没有知道的?救济我吧!!!
rsnm
2003-09-15
打赏
举报
回复
To:coolfilm(苏飞工作室)
CLSID是什么意思啊,该怎样设置,能不能讲清楚点?
多谢啦
hch_d
2003-09-12
打赏
举报
回复
哦,被抢先了,呵呵:)
coolfilm
2003-09-12
打赏
举报
回复
当然不行啊原码没对吗!CLSID没对啊!
yangmanyuan
2003-09-12
打赏
举报
回复
up
rsnm
2003-09-12
打赏
举报
回复
To struggle813(深蓝大道) :
我试了,不行啊!!
还有,rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}')
'CLSID'是什么意思,能不能解释一下?
谢谢!
rsnm
2003-09-12
打赏
举报
回复
谢谢各位!
To struggle813(深蓝大道) :
在注册表中{0713E8D2-850A-101B-AFC0-4210102A8DA7}是代表什么意思?如果别的程序
占用了这个Key,怎么办?如何加一个Key, Key name 有什么讲究吗?我随便取一个名好象
不行哦
tanqth
2003-09-12
打赏
举报
回复
struggle813(深蓝大道) 你也不用发这么多次吧。
struggle813
2003-09-11
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,registry;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
rg:Tregistry;
begin
{Edit1---4对应的是:
按钮提示信息
要执行的应用程序路径
按钮开始图标
按钮浮动时的图标 }
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A- 101B-AFC0-4210102A8DA7}',true);
rg.writestring('BUTTONTEXT',Edit1.text);
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Edit2.text);
rg.writestring('ICON',Edit3.text);
rg.writestring('HOTICON',Edit4.text);
rg.closekey;
rg.free;
end;
end.
struggle813
2003-09-11
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,registry;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
rg:Tregistry;
begin
{Edit1---4对应的是:
按钮提示信息
要执行的应用程序路径
按钮开始图标
按钮浮动时的图标 }
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A- 101B-AFC0-4210102A8DA7}',true);
rg.writestring('BUTTONTEXT',Edit1.text);
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Edit2.text);
rg.writestring('ICON',Edit3.text);
rg.writestring('HOTICON',Edit4.text);
rg.closekey;
rg.free;
end;
end.
struggle813
2003-09-11
打赏
举报
回复
interface
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,registry;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
rg:Tregistry;
begin
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
rg.writestring('BUTTONTEXT',Edit1.text);
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Edit2.text);
rg.writestring('ICON',Edit3.text);
rg.writestring('HOTICON',Edit4.text);
rg.closekey;
rg.free;
end;
{Edit1---4对应的是:
按钮提示信息
要执行的应用程序路径
按钮开始图标
按钮浮动时的图标 }
end.
rsnm
2003-09-11
打赏
举报
回复
怎么没人理我啊?
还是在线等....
OpenVINO计算机视觉模型加速 实战教程
详细介绍了OpenVINO整体架构、基本组件、核心组件DLDT与IE的使用,OpenVINO对模型加速执行推断的开发流程与步骤、相关SDK API函数如何在C++与Python环境下进行API调用,如何使用预训练模型快速开发图像分类、对象检测、语义分割、实例分割、车牌识别、行人检测、场景文字检测与识别、YOLOv5模型部署加速与推理、表情识别与landmark提取等高实时视频分析
程序
,使用模型优化器进行模型压缩转换与优化等OpenVINO核心技术演示与代码教学。一步一步教你构建CPU级别可实时的深度学习模型应用
程序
。部分演示
程序
截图如下(均基于CPU达到实时帧率,基于OpenVINO2021.02版本录制):
selenium webdriver (python)的基本用法一
阅
在线
AIP 文档:http://selenium.googlecode.com/git/docs/api/py/index.html目录一、selenium+python 环境搭建................................................................................................61.1 seleniu...
Web.config详解+asp.net优化
Web.config详解+asp.net优化(1)一、认识Web.config文件Web.config 文件是一个xml文本文件,它用来储存 asp.NET Web 应用
程序
的配置信息(如最常用的设置asp.NET Web 应用
程序
的身份验证方式),它可以出现在应用
程序
的每一个目录中。当你通过.NET新建一个Web应用
程序
后,默认情况下会在根目录自动创建一个默认的Web.config文件,包括默
qt判断用户是否正在使用当前应用
程序
转自:https://blog.csdn.net/qq_37529442/article/details/78136917 如何在qt
程序
中判断当前应用
程序
是否被用户使用呢?我们先了解一下QApplication这个类 简单的说,QApplication类管理图形用户界面应用
程序
的控制流和主要设置。可以说 QApplication是Qt的整个后台管理的命脉 它包含主事件循环,在其中来自窗口...
VC++中可能遇到的问题
.m,a.m:link{COLOR:#666666;font-size:100%;}a.m:visited{COLOR:#660066;}T 如何用
程序
控制电源管理设置 Q 我们知道在电源选项 属性 里面可以设置 关闭监视器 1分钟之后,...,从不 关闭硬盘 1分钟之后,...,从不 待机时间 1分钟之后,...,从不
请
问这些设置我怎么用
程序
来实现 比
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章