注册右键菜单

• 
  　 用于开发WINDOWS程序的语言不少，一般来说小型通用程序用DELPHI是个不错的选择，没听说过吗？??“聪明的程序员用DELPHI”。我们上网常用的FOXMAIL、网络蚂蚁等都是用它开发的。
  兴致来了用DELPHI做个小程序，比方说：“大文件切割机”，要与朋友们共享，想没想过将它注册到系统的右键中？朋友们只需在文件上点击右键，就可以选择启动你的杰作来工作了。
  现在就演示一下如何召唤右键：
  procedure TForm1.Button1Click(Sender: TObject);
  var
  
  a:TRegistry;
  begin
      a:=TRegistry.create;
      a.rootkey:=HKEY_CLASSES_ROOT;
  //用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;
  怎么样，右键呼之即来，挥之即去的感觉，酷吧？！

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 注册右键菜单 相关文章：
• ·注册右键菜单
• 注册右键菜单 相关软件

上一篇:执行一个外部程序并等待它的完成

下一篇:自定义报表打印预览窗口

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐