Rubrik: Windows/System | 09.05.01 |
ExitWindowsEx-Funktion Mit Hilfe dieser Funktion kann man den Computer "Neu starten", "Herunterfahren" oder sich "aus dem Netzwerk abmelden". | ||
Betriebssystem: Win95, Win98, WinNT, Win2000, WinME | Views: 20.212 |
Beschreibung:
Mit Hilfe dieser Funktion kann man den Computer "Neu starten", "Herunterfahren" oder sich "aus dem Netzwerk abmelden".
Deklaration:
Declare Function ExitWindowsEx Lib "user32" ( _ ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long
Parameter:
uFlags | Legt fest, wie Windows beendet werden soll. Möglich sind die folgenden Konstanten. |
uFlags Konstanten:
Const EWX_FORCE = 4 ' Beendet alle Programme ohne zusätzliche Aufforderung Const EWX_LOGOFF = 0 ' Meldet sich neu am Netzwerk an Const EWX_REBOOT = 2 ' Startet den Computer neu Const EWX_SHUTDOWN = 1 ' Fährt den Computer herunter Const EWX_POWEROFF = 8 ' Fährt den Computer herunter und schaltet ihn ab
Rückgabewert:
War der Funktionsaufruf erfolgreich, wird ein Wert ungleich "0" zurückgegeben. Tritt ein Fehler auf, so ist der Rückgabewert "0".
Beispiel:
Private Declare Function ExitWindowsEx Lib "user32" ( _ ByVal uFlags As Long, _ dwReserved As Long) As Long Private Const EWX_FORCE = 4 Private Const EWX_LOGOFF = 0 Private Const EWX_REBOOT = 2 Private Const EWX_SHUTDOWN = 1 Private Const EWX_POWEROFF = 8
Private Sub Command1_Click () Dim Retval As Long, MsgResult As Long MsgResult = MsgBox("Wollen Sie den Computer jetzt neu starten?", _ vbQuestion + vbYesNo, "Neu starten") If MsgResult = vbYes Then Retval = ExitWindowsEx( EWX_REBOOT, 0&) If Retval = 0 Then MsgBox "Der Computer kann nicht " & _ "heruntergefahren werden.", vbInformation End If End Sub