用於開發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;
怎麼樣，右鍵呼之即來，揮之即去的感覺，酷吧？！
