清醒时做事，糊涂时读书，大怒时睡觉，无聊时关注图老师为大家准备的精彩内容。下面为大家推荐右键任来去，无聊中的都看过来。
【 tulaoshi.com - 编程语言 】
用于开发WINDOWS程序的语言不少，一般来说小型通用程序用DELPHI是个不错的选择，没听说过吗？？？聪明的程序员用DELPHI。我们上网常用的FOXMAIL、网络蚂蚁等都是用它开发的。
兴致来了用DELPHI做个小程序，比方说：大文件切割机，要与朋友们共享，想没想过将它注册到系统的右键中？朋友们只需在文件上点击右键，就可以选择启动你的杰作来工作了。
现在就演示一下如何召唤右键：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
procedure TForm1.Button1Click(Sender: TObject);vara:TRegistry;begin a:=TRegistry.create; a.rootkey:=HKEY_CLASSES_ROOT;//用openkey打开一个主键，如果此主键不存在则自动创建 if a.openkey(*shellcutbig,true) then begin //用writestring将设置值写入打开的主键 a.writestring(,切割与组装(&k)); a.closekey; end; if a.openkey(*shellcutbigcommand,true) then begin //command子键的内容是点击右键后选择相应项后要运行的程序； //%1是在单击右键时选中的文件名 a.writestring(,c:delphimyprogram.exe+"%1"); a.closekey; end; a.free;end;
当然，要记住在interface的USES中加入registry单元，否则编译时无法识别TRegistry，这是DELPHI为处理注册表而提供的。
如果需要删去右键的这个功能，如何做？很简单：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
procedure TForm1.Button2Click(Sender: TObject);vara:TRegistry;begin a:=TRegistry.create; a.rootkey:=HKEY_CLASSES_ROOT;//用deletekey删除一个主键，其所包含的子键也被删除，如果已无此主键，运行删除操作不会带来别的危害 a.deletekey(*shellcutbig);a.free;end;
怎么样，右键呼之即来，挥之即去的感觉，酷吧？！
来源:https://www.tulaoshi.com/n/20160219/1615305.html
