用于開發(fā)WINDOWS程序的語言不少，一般來說小型通用程序用DELPHI是個不錯的選擇，沒聽說過嗎？??“聰明的程序員用DELPHI”。我們上網(wǎng)常用的FOXMAIL、網(wǎng)絡(luò)螞蟻等都是用它開發(fā)的。
興致來了用DELPHI做個小程序，比方說：“大文件切割機(jī)”，要與朋友們共享，想沒想過將它注冊到系統(tǒng)的右鍵中？朋友們只需在文件上點(diǎn)擊右鍵，就可以選擇啟動你的杰作來工作了。
現(xiàn)在就演示一下如何召喚右鍵：
procedure TForm1.Button1Click(Sender: TObject);
var

a:TRegistry;
begin
    a:=TRegistry.create;
    a.rootkey:=HKEY_CLASSES_ROOT;
//用openkey打開一個主鍵，如果此主鍵不存在則自動創(chuàng)建
    if a.openkey(*\shell\cutbig,true) then
    begin
    //用writestring將設(shè)置值寫入打開的主鍵
    a.writestring(,切割與組裝(&k));
    a.closekey;
    end;
    if a.openkey(*\shell\cutbig\command,true) then
    begin
    //command子鍵的內(nèi)容是點(diǎn)擊右鍵后選擇相應(yīng)項(xiàng)后要運(yùn)行的程序；
    //%1是在單擊右鍵時選中的文件名
    a.writestring(,c:\delphi\myprogram.exe+"%1");
    a.closekey;
    end;
    a.free;

end;
當(dāng)然，要記住在interface的USES中加入registry單元，否則編譯時無法識別TRegistry，這是DELPHI為處理注冊表而提供的。
如果需要刪去右鍵的這個功能，如何做？很簡單：
procedure TForm1.Button2Click(Sender: TObject);
var

a:TRegistry;
begin
    a:=TRegistry.create;
    a.rootkey:=HKEY_CLASSES_ROOT;
//用deletekey刪除一個主鍵，其所包含的子鍵也被刪除，如果已無此主鍵，運(yùn)行刪除操作不會帶來別的危害
    a.deletekey(*\shell\cutbig);
a.free;

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