Windows neu starten Hier wird gezeigt, wie mittels einer API-Funktion das Windows-System heruntergefahren und/oder neu gestartet wird.
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  21.169
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 41 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Manchmal ist es notwendig, das System per Programm-Code neu zu starten. Der Windows-Neustart erfolgt hierbei über die Windows-API-Funktion ExitWindowsEx. Der Paramater uFlags gibt hierbei an, welche Aktion genau ausgeführt werden soll:

uFlags	Aktion
EWX_REBOOT	Windows beenden und neu starten
EWX_SHUTDOWN	Windows herunterfahren
EWX_LOGOFF	Benutzer abmelden und neuen Benutzer anmelden

' zunächst die benötigten API-Deklarationen
Private Declare Function ExitWindowsEx Lib "user32" ( _
  ByVal uFlags As Long, _
  ByVal dwReserved As Long) As Long
 
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1

Beispiele:

Dim Result As Long
 
' Windows herunterfahren
Result = ExitWindowsEx(EWX_SHUTDOWN, 0)
 
' Windows herunterfahren und neu starten
Result = ExitWindowsEx(EWX_REBOOT, 0)
 
' Benutzer abmelden
Result = ExitWindowsEx(EWX_LOGOFF, 0)

Wird als Rückgabewert (Result) ein Wert ungleich Null zurückgegeben, war der Aufruf erfolgreich.