こんにちは。ゆちボンです。
コンソールの終了時について質問があります。
右上の×をおして終了したときに最後の終了処理をするにはどうすればよいのでしょうか?
わかる方がいらっしゃいましたらお願いします。
コンソールの終了時
コンソールがCUIを前提としたインターフェースなので、Windowsメッセージのやり取りはできないようです。(つまりDestory、QueryClose等は使えない。)
少し調べたところ、C#やVBではコンソールをクラス化して解決できるようです。
#右上の×を押す代わりにCtrl+Cでも強制終了がかかったりしますね
少し調べたところ、C#やVBではコンソールをクラス化して解決できるようです。
#右上の×を押す代わりにCtrl+Cでも強制終了がかかったりしますね
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
C#やVBにあるということは,Windows APIに方法があるということです。
その名をSetConsoleCtrlHandlerと言い,終了時に呼んでほしい関数を渡しておくというものです。
AB 4.24でこんな感じになります。
その名を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)