GetExitCodeProcess-Funktion Diese Funktion ermittelt den Beendigungsstatus eines Prozesses.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  419

Deklaration:

Declare Function GetExitCodeProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
   lpExitCode As Long) As Long

Beschreibung:
Diese Funktion ermittelt den Beendigungsstatus eines Prozesses.

Parameter:

hProcess	Erwartet den Handle eines Prozesses.
lpExitCode	Erwartet eineLong-Variable, die den Beendigungsstatus des Prozesses erhält.

Rückgabewert:
Ist die Funktion erfolgreich, so wird ein Wert "ungleich 0" zurückgegeben, andernfallswird der Wert "0" zurückgegeben. Für erweiterte Fehlerinformationen könnenSie die GetLastError-Funktion aufrufen.

Beispiel:

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
  ByVal hProcess  As Long, _
  lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

' Aktuellen Prozess beenden (Achtung!! die IDE wird auch beendet)
Private Sub Command1_Click()
  Dim dwExitcode As Long
 
  Call GetExitCodeProcess(GetCurrentProcess, dwExitcode)
  Call ExitProcess(dwExitcode)
End Sub