Delphi不用DLL方式拦截全局外壳程序（Shell application）消息

拦截全局外壳程序窗体消息，一般都要用DLL创建WH_SHELL钩子，但有个非公开的API函数RegisterShellHookWindow，绑定一个handle句柄，然后注册SHELLHOOK消息后，就可以在handle句柄消息处理的过程中处理以下wParam值

  HSHELL_WINDOWCREATED = $0001;         // 系统级的窗体被创建
  HSHELL_WINDOWDESTROYED = $0002;       // 系统级的窗体即将被关闭
  HSHELL_ACTIVATESHELLWINDOW = $0003;   // SHELL 的主窗体将被激活
  //HSHELL_WINDOWACTIVATED = $0004;       // 系统级的窗体被激活
  HSHELL_GETMINRECT = $0005;            // 窗体被最大化或最小化
  HSHELL_REDRAW     = $0006;            // Windows 任务栏被刷新
  HSHELL_TASKMAN    = $0007;            // 任务列表的内容被选中
  HSHELL_LANGUAGE   = $0008;          &