delphi - 如何在 Delphi 控制台应用程序中处理 Ctrl+C？

Question

是否有最佳实践和代码片段可以展示如何在 Delphi 控制台应用程序中处理 Ctrl+C？

我发现一些文章提供了有关调试器可能出现的问题的一些信息，包括异常处理、DLL 卸载、标准输入关闭和终结 for example this CodeGear forums thread .

Answer 1

来自 Windows API (MSDN):

BOOL WINAPI SetConsoleCtrlHandler(
    PHANDLER_ROUTINE HandlerRoutine,    // address of handler function  
    BOOL Add    // handler to add or remove 
   );   

HandlerRoutine 函数是控制台进程指定的用于处理进程接收到的控制信号的函数。该函数可以有任何名称。

BOOL WINAPI HandlerRoutine(
    DWORD dwCtrlType    //  control signal type
   );   

<小时/>

在 Delphi 中，处理程序例程应如下所示:

function console_handler( dwCtrlType: DWORD ): BOOL; stdcall;
begin
  // Avoid terminating with Ctrl+C
  if (  CTRL_C_EVENT = dwCtrlType  ) then
    result := TRUE
  else
    result := FALSE;
end;