http://kiko.blog.163.com/blog/static/18881382009915118850/

http://blog.joycode.com/tingwang/archive/2005/04/08/47308.aspx

http://hi.baidu.com/hacklzt/blog/item/149220dc208145d18d1029f0.html

http://hi.baidu.com/375208803/blog/item/2c897719e09fa60d34fa4109.html

http://blog.csdn.net/wh445306/archive/2007/12/18/1950812.aspx

http://blog.tianya.cn/blogger/post_show.asp?BlogID=473989

http://qbaok.blog.163.com/blog/static/10129265200981642948446/

http://www.examda.com/ncre2/delphi/20090425/083816781.html

http://www.cnblogs.com/qevan/archive/2005/01/19/94405.html

These might help:
http://www.delphi3000.com/articles/article_3991.asp?SK=mht
http://www.delphi3000.com/articles/article_4373.asp?SK=mht

http://www.cnblogs.com/stswordman/archive/2006/05/15/400686.html

http://xueares.bokee.com/6063350.html                                      

delphi禁止某窗口被关闭的方法

若窗口上有其它焦点控件，如Memo等，则设置Form.keypriview:=true;接受所有按键。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
      if   (ssAlt   in   shift)   And   (Key=VK_F4)   then
      begin

        key:=0; //屏蔽Alt+F4,不能用此快捷键关闭窗口
  

http://www.samool.com/archives/251/
该日志由 samool 发表于 2007-01-22 3:20 PM

//Anti-Monitor  
Function   ABC39:   Boolean;   //检测Dump;  
var  
      hFile:   Thandle;  
Begin  
      Result:=   false;