| Rubrik: System/Windows · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 04.03.01 |
 Windows neu startenHier wird gezeigt, wie mittels einer API-Funktion das Windows-System heruntergefahren und/oder neu gestartet wird. | ||
Autor:  Heinz Prelle | Bewertung:   | Views: 20.432 |
| www.visual-basic5.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
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.
