Private Declare Function ExitWindowsEx Lib "user32.dll" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Платформа: Win 95/98, Win NT
'ExitWindowsEx выключает или перезагружает компьютер.Функция
возвращает 0 в случае ошибки и 1 в успешном случае.
'uFlags Один или несколько флагов,определяющих способ выключения или
перезагрузки компьютера:
Const EWX_FORCE As Long = 4 'Закрывает все программы без приглашения сохранить файлы.
Const EWX_LOGOFF As Long = 0 'Отключает от сети.
Const EWX_POWEROFF As Long = 8 'Завершает работу системы и если есть возможность выключает компьютер.
Const EWX_REBOOT As Long = 2 'Перезагружает компьютер.
Const EWX_SHUTDOWN As Long = 1 'Завершает работу системы.
'dwReserved Зарезервированный параметр для будущих версий Windows.
Всегда установлен в 0.
Пример
' Перезагружаем компьютер, закрывая все открытые программы.
Dim retval As Long
retval = ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0)
If retval = 0 Then Debug.Print "Не удается перезагрузить компьютер." |
|
