FatalAppExit-Funktion Diese Funktion beendet das laufende Programm mit einer Fehlermeldung.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  8.593

Deklaration:

Declare Sub FatalAppExit Lib "kernel32" _
  Alias "FatalAppExitA" ( _
  ByVal uAction As Long, _
  ByVal lpMessageText As String)

Beschreibung:
Diese Funktion beendet das laufende Programm mit einer Fehlermeldung.

Parameter:

uAction	Reserviert, übergeben Sie hier denWert "0".
lpMessageText	Erwartet einen Text, der vor demBeenden in einer Dialogbox erscheinen soll.

Rückgabewert:
keine

Beispiel:

Private Declare Sub FatalAppExit Lib "kernel32" _
  Alias "FatalAppExitA"  ( _
  ByVal uAction As Long, _
  ByVal lpMessageText As String)
Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)

Private Sub Command1_Click()
  FatalAppExit 0&, "Tia, abgestürzt"
End Sub

Private Sub Command2_Click()
  FatalExit 1
End Sub