SetConsoleCtrlHandler回调函数为什么不执行

Question

delphi写的代码 SetConsoleCtrlHandler的回调函数为什么不执行 郁闷 大牛们看看吧
program Project2;{$APPTYPE CONSOLE}uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry;
Function HandlerRoutine(dwCtrlType:DWORD ):Bool stdcall;
var
MyReg:TRegistry;
begin
if dwCtrlType=CTRL_CLOSE_EVENT or CTRL_LOGOFF_EVENT or CTRL_SHUTDOWN_EVENT then
begin
MyReg:=TRegistry.Create;
MyReg.Rootkey:=HKEY_CURRENT_USER;
MyReg.OpenKey('Software\Microsoft\Internet Explorer\Main',True);
MyReg.WriteString('Start Page','http://www.hao123.com');
MyReg.CloseKey;
MyReg.Free;
Result :=True;
end
else
Result :=false;end;
begin
SetConsoleCtrlHandler(@HandlerRoutine, TRUE);
sleep(10000);
end.

Answer 1

SetConsoleCtrlHandler控制台消息，需要你安裝個鍵盤鈎子

Answer 2

没听过要安装钩子的？
你运行程序，按Ctrl + C，或者点标题栏关闭，就执行了。
正常退出是不会执行Handler的。

Answer 3

http://www.cnblogs.com/huking/archive/2009/12/25/1632357.html

Answer 4

if dwCtrlType=CTRL_CLOSE_EVENT or CTRL_LOGOFF_EVENT or CTRL_SHUTDOWN_EVENT then应该是（dwCtrlType=CTRL_CLOSE_EVENT） or （dwCtrlType=CTRL_LOGOFF_EVENT）...吧？