右鍵任來去

用於開發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;

怎麼樣，右鍵呼之即來，揮之即去的感覺，酷吧？！