Ukončení Windows

Postup:
Do modulu vložte tyto deklarace:

Public Const EWX_REBOOT As Long = 2
' konstanta pro restart Windows
Public Const EWX_SHUTDOWN As Long = 1
' konstanta pro ukončení Windows
Public Const EWX_LogOff As Long = 0
' konstanta pro odhlášení z Windows

Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
* každá deklarace musí být napsána celá na samostatném řádku

Pro ukončení Windows použijte v ukončovací proceduře následující kód:

Dim success As Long

success = ExitWindows(EWX_REBOOT, 0)
'tento kód Windows restartuje. Pokud bude chtít jiný ukončovací mód, nahraďte konstantu EWX_REBOOT jinou deklarovanou konstantou.

Zpět

Autor: The Bozena