Выход из консольного приложения

[Jack Ferre]

Как корректно завершить выполнение консольного приложения?

При закрытии окошка или нажатия Ctrl+C в консоли убивается процесс. Можно как-то отловить выход?

Т.к. решения пока нет, решил сделать выход по вводу команды:

Код: Выделить всё

Do
    If stdin.ReadLine = "q" Then
        ' Здесь завершение программы
        Exit Do
    End If
Loop


И всё вроде бы прекрасно, да вот только программа не выполняется - заблокирована. А заводить поток под ReadLine чёт не хочется.

P.S. Спасибо за EasyConsole

[Jack Ferre]

Извиняюсь. Нарушил одну из заповедей.

Нашел SetConsoleCtrlHandler. Изловить событие выхода получилось. Однако при завершении программа падает, хотя в коде всё в порядке.

Because the system creates a new thread in the process to execute the handler function, it is possible that the handler function will be terminated by another thread in the process. Be sure to synchronize threads in the process with the thread for the handler function.

Следовало сразу догадаться - не из воздуха же callback вызывается.

Итого уже 2 причины возиться с потоками. Т.к. парой строчек кода тут не обойтись (в текущем проекте стараюсь писать минимум лишнего) и в данном случае завершение процесса не критично, придется забить

[Хакер]

Итого уже 2 причины возиться с потоками. Т.к. парой строчек кода тут не обойтись

Наоборот, напиши предельно легковесный хендлер.

[Jack Ferre]

Написал рабочий вариант. Выпилил процентов 70 кода, чтобы получился

предельно легковесный хендлер

Код: Выделить всё

Private lpOldProc As Long
Private hwndConsole As Long
Private tidConsoleHandler As Long

Public Sub Con_Init(ByVal hwnd As Long)
    hwndConsole = hwnd
    lpOldProc = SetWindowLong(hwndConsole, GWL_WNDPROC, AddressOf WNDPROC_Console)
    Call SetConsoleCtrlHandler(AddressOf CALLBACK_ConsoleHandler, True)
End Sub

Private Function WNDPROC_Console(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case msg
        Case WM_CONQUIT
            AppStop     ' Событие завершения программы
           
            Call SetWindowLong(hwndConsole, GWL_WNDPROC, lpOldProc)
            PostThreadMessage tidConsoleHandler, WM_CONQUIT, 0, 0
        Case Else
            CallWindowProc lpOldProc, hwnd, msg, wParam, lParam
    End Select
End Function

Private Function CALLBACK_ConsoleHandler(ByVal lCtrlType As Long) As Boolean
    Dim msg As msg
   
    PostMessage hwndConsole, WM_CONQUIT, 0, 0
    tidConsoleHandler = GetCurrentThreadId
    Call GetMessage(msg, 0, 0, 0)
End Function

Хотел использовать окошко GetConsoleWindow для отлова сообщений, но какое-то оно негодное. Так что нужно своё.