by イグトランス » 2009年1月04日(日) 20:10
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)
C#やVBにあるということは,Windows APIに方法があるということです。
その名をSetConsoleCtrlHandlerと言い,終了時に呼んでほしい関数を渡しておくというものです。
AB 4.24でこんな感じになります。
[code]#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)[/code]