再谈Delphi关机消息拦截 -- 之控制台程序 SetConsoleCtrlHandler（控制台使用回调函数拦截，比较有意思）

这里补充一下第一篇文章中提到的拦截关机消息

Delphi消息拦截：http://blog.csdn.net/cwpoint/archive/2011/04/05/6302314.aspx

 

下面我再介绍一种在控制台程序中拦截关机消息的方法。

使用SetConsoleCtrlHandler函数。经过测试这个函数不能取消操作。

 

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Messages;

function EndMsg(fdwCtrlType: Cardinal): Boolean; stdcall;
begin
  Result := False;
  case fdwCtrlType of
    CTRL_LOGOFF_EVENT, CTRL_SHUTDOWN_EVENT:
      MessageBox(0, PChar('注销、重启、关机'), PChar(''), 0);
  end;
end;

begin

  if not SetConsoleCtrlHandler(@EndMsg, True) then
    Exit;

  while True do
    Sleep(1000);

end.

 

 

http://blog.csdn.net/cwpoint/article/details/6373025