C#やVBにあるということは,Windows APIに方法があるということです。
その名をSetConsoleCtrlHandlerと言い,終了時に呼んでほしい関数を渡しておくというものです。
AB 4.24でこんな感じになります。
コード:
#console
TypeDef PHANDLER_ROUTINE = *Function(dwCtrlType As DWord) As BOOL
Declare Function SetConsoleCtrlHandler Lib "kernel32" (HandlerRoutine As PHANDLER_ROUTINE, Add As BOOL) As BOOL
Const CTRL_C_EVENT = 0 'Ctrl + Cが押されたとき
Const CTRL_BREAK_EVENT = 1 'Ctrl + Breakが押されたとき
Const CTRL_CLOSE_EVENT = 2 'ウィンドウが閉じるとき
Const CTRL_LOGOFF_EVENT = 5 'ログオフするとき
Const CTRL_SHUTDOWN_EVENT = 6 'シャットダウンするとき
'閉じるときに呼ばれる関数
Function ConsoleCtrlHandler(dwCtrlType As DWord) As BOOL
If dwCtrlType = CTRL_CLOSE_EVENT Then
Print "終了します……"
Sleep(1000)
ConsoleCtrlHandler = FALSE 'CTRL_C_EVENTとCTRL_BREAK_EVENTではTRUEにすると閉じるのを回避できます
End If
End Function
SetConsoleCtrlHandler(AddressOf(ConsoleCtrlHandler), TRUE)
'ここからプログラムの処理を書きます
Sleep(-1)