• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

注册右键菜单_Delphi

Delphi 搞代码 3年前 (2018-08-09) 140次浏览 已收录 0个评论

  用于开发WINDOWS程序的语言不少,一般来说小型通用程序用Delphi是个不错的选择,没听说过吗???“聪明的程序员用DELPHI”。我们上网常用的FOXMAIL、网络蚂蚁等都是用它开发的。
兴致来了用DELPHI做个小程序,比方说:“大文件切割机”,要与朋友们共享,想没想过将它注册到系统的右键中?朋友们只需在文件上点击右键,就可以选择启动你的杰作来工作了。
现在就演示一下如何召唤右键:
procedure TForm1.Button1Click(Sender: TObject);
var

a:TRegistry;
begin
    a:=TRegistry.create;
    a.rootkey:=HKEY_CLASSES_ROOT;

http://www.gaodaima.com/?p=65924注册右键菜单_Delphi

//用openkey打开一个主键,如果此主键不存在则自动创建
    if a.openkey(*/shell/cutbig,true) then
    begin
    //用writestring将设置值写入打开的主键
    a.writestring(,切割与组装(&k));
    a.closekey;
    end;
    if a.openkey(*/shell/cutbig/command,true) then
    begin
    //command子键的内容是点击右键后选择相应项后要运行的程序;
    //%1是在单击右键时选中的文件名
    a.writestring(,c:/delphi/myprogram.exe+"%1");
    a.closekey;
    end;
    a.free;

end;
当然,要记住在interface的USES中加入registry单元,否则编译时无法识别TRegistry,这是DELPHI为处理注册表而提供的。
如果需要删去右键的这个功能,如何做?很简单:
procedure TForm1.Button2Click(Sender: TObject);
var

a:TRegistry;
begin
    a:=TRegistry.create;
    a.rootkey:=HKEY_CLASSES_ROOT;
//用deletekey删除一个主键,其所包含的子键也被删除,如果已无此主键,运行删除操作不会带来别的危害
    a.deletekey(*/shell/cutbig);
a.free;

end;
怎么样,右键呼之即来,挥之即去的感觉,酷吧?!

欢迎大家阅读《注册右键菜单_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址