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

发布时间：2020-12-15 04:28:21 所属栏目：大数据来源：网络整理

导读：是否有最佳做法和代码段可用,显示如何在Delphi控制台应用程序中处理Ctrl C？我发现一些文章提供了有关调试器可能出现的问题的一些信息,包括异常处理,卸载DLL,关闭stdin以及定稿for example this CodeGear forums thread. 解决方法从Windows API( MSDN)： B

是否有最佳做法和代码段可用,显示如何在Delphi控制台应用程序中处理Ctrl C？

我发现一些文章提供了有关调试器可能出现的问题的一些信息,包括异常处理,卸载DLL,关闭stdin以及定稿for example this CodeGear forums thread.

解决方法

从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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!