[Alegun]

Отлавливать CTRL_CLOSE_EVENT

Код:

function ConProc(CtrlType : DWord) : Bool; stdcall; far;
var
S: string;
begin
case CtrlType of
   CTRL_C_EVENT: S := 'CTRL_C_EVENT';
   CTRL_BREAK_EVENT: S := 'CTRL_BREAK_EVENT';
   CTRL_CLOSE_EVENT: S := 'CTRL_CLOSE_EVENT';
   CTRL_LOGOFF_EVENT: S := 'CTRL_LOGOFF_EVENT';
   CTRL_SHUTDOWN_EVENT: S := 'CTRL_SHUTDOWN_EVENT';
   else
     S := 'UNKNOWN_EVENT';
end;

CTRL_CLOSE_EVENT - Пользователь закрывает консоль
CTRL_LOGOFF_EVENT - Пользователь завершает сеанс работы (log off)
CTRL_SHUTDOWN_EVENT - Пользователь выключает систему (shut down)