閉じるボタンをクリックしたときにコンソールウィンドウプログラムに通知する方法はありますか？

Question

Windows APIは、（Ctrl + Cを使用する代わりに）閉じるボタンをクリックして終了すると、実行中のDelphiアプリケーションにコンソールウィンドウで通知する方法を提供していますか？

関連質問：How do I handle Ctrl+C in a Delphi console application?

Answer 1

OSは、経由して様々なイベントのコンソールプログラムを通知「の制御信号。」シグナルを配信するようにa function for the OS to callを設定するには、SetConsoleCtrlHandlerに電話してください。閉じたウィンドウの信号はCTRL_CLOSE_EVENTです。

function ConsoleEventProc(CtrlType: DWORD): BOOL; stdcall; 
begin 

    if (CtrlType = CTRL_CLOSE_EVENT) then 
    begin 
    // optionally run own code here 
    // ... 

    end; 

    Result := True; 
end; 

... 

begin 
    SetConsoleCtrlHandler(@ConsoleEventProc, True); 
    // my application code here 
    // ... 
end.