右键任来去

　　用于开发WINDOWS程序的语言不少，一般来说小型通用程序用DELPHI是个不错的选择，没听说过吗？？？聪明的程序员用DELPHI。我们上网常用的FOXMAIL、网络蚂蚁等都是用它开发的。

　　兴致来了用DELPHI做个小程序，比方说：大文件切割机，要与朋友们共享，想没想过将它注册到系统的右键中？朋友们只需在文件上点击右键，就可以选择启动你的杰作来工作了。

　　现在就演示一下如何召唤右键：

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为处理注册表而提供的。

　　如果需要删去右键的这个功能，如何做？很简单：

procedure TForm1.Button2Click(Sender: TObject);vara:TRegistry;begin　　a:=TRegistry.create;　　a.rootkey:=HKEY_CLASSES_ROOT;//用deletekey删除一个主键，其所包含的子键也被删除，如果已无此主键，运行删除操作不会带来别的危害　　a.deletekey(*shellcutbig);a.free;end;

　　怎么样，右键呼之即来，挥之即去的感觉，酷吧？！