Rubrik: Windows/System | 22.03.05 |
FatalAppExit-Funktion Diese Funktion beendet das laufende Programm mit einer Fehlermeldung. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 8.159 |
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