ページ 1 ／ 1
コンソールの終了時
Posted: 2009年1月04日(日) 16:51
by MML
こんにちは。ゆちボンです。
コンソールの終了時について質問があります。
右上の×をおして終了したときに最後の終了処理をするにはどうすればよいのでしょうか？
わかる方がいらっしゃいましたらお願いします。
Posted: 2009年1月04日(日) 17:44
by konisi
コンソールがCUIを前提としたインターフェースなので、Windowsメッセージのやり取りはできないようです。（つまりDestory、QueryClose等は使えない。）
少し調べたところ、C#やVBではコンソールをクラス化して解決できるようです。
＃右上の×を押す代わりにCtrl+Cでも強制終了がかかったりしますね
Posted: 2009年1月04日(日) 17:49
by MML
> コンソールがCUIを前提としたインターフェースなので、Windowsメッセージのやり取りはできないようです。
> 少し調べたところ、C#やVBにはコンソールをクラス化して解決する方法があるようです。
> ＃右上の×を押す代わりにCtrl+Cでも強制終了がかかったりしますね
割り込みみたいなものは無理なんですか・・・
わかりました。
ありがとうございます。
Posted: 2009年1月04日(日) 20:10
by イグトランス
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)
Posted: 2009年1月04日(日) 20:41
by MML
> C#やVBにあるということは，Windows APIに方法があるということです。
> その名をSetConsoleCtrlHandlerと言い，終了時に呼んでほしい関数を渡しておくというものです。
> AB 4.24でこんな感じになります。
ありがとうございます！
これで終了処理が実装できるようになりました！