Функция ExitProcess

Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

ExitProcess завершает процесс.

Возвращаемое значение

Функция не возвращает значений.

Параметры

uExitCode

Код завершения процесса. Используйте GetExitCodeProcess для получения значения кода и GetExitCodeThread для получения значения кода завершения потока

Пример

' Пример от Майкрософт
' Добавьте на форму три кнопки
Private Declare Sub ExitProcess Lib "kernel32" _
         (ByVal uExitCode As Long)

Private lExitCode As Long

Private Sub Command1_Click()
         lExitCode = 50&
         Unload Me
End Sub

Private Sub Command2_Click()
         lExitCode = 100&
         Unload Me
End Sub

Private Sub Command3_Click()
         lExitCode = 150&
         Unload Me
End Sub

Private Sub Form_Load()
         Command1.Caption = "50"
         Command2.Caption = "100"
         Command3.Caption = "150"
End Sub

Private Sub Form_Terminate()
' Вызываем ExitProcess перед закрытием программы
    ExitProcess lExitCode
End Sub

Сохраните ваш Project создайте Project1.EXE. Затем создайте bat-файл с именем errlevel.bat в той же папке:

echo off
start /w project1
rem "start /w"
if errorlevel 150 goto 150
if errorlevel 100 goto 100
if errorlevel 50 goto 50
echo Exit Code 0
goto Done
:150
echo Exit Code 150
goto done
:100
echo Exit Code 100
goto done
:50
echo Exit Code 50
:done
echo done

Запустите bat-файл. Если вы нажмете на одной из кнопок, приложение будет закрыто с указанием уровня ошибки.

Смотри также

CreateProcess

Категория

Процессы и потоки