Вопрос № 104126: Здравствуйте, уважаемые! Скажите пожалуйста, как (желательно API функцией) можно отправить машину на перезагрузку (ну или просто выключить). Какие параметры API функции должны быть? Заранее СПАСИБО!...
Вопрос № 104.126
Здравствуйте, уважаемые! Скажите пожалуйста, как (желательно API функцией) можно отправить машину на перезагрузку (ну или просто выключить). Какие параметры API функции должны быть? Заранее СПАСИБО!
Отвечает: QDSota
Здравствуйте, Орлов Владимир Артемьевич!
Примерно так:
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub
--------- Открыть глаза навстречу солнцу
Ответ отправил: QDSota (статус: Профессионал) Тел.: 8-916-53-43-916 ICQ: 84611301 ---- Ответ отправлен: 03.10.2007, 11:21 Оценка за ответ: 5 Комментарий оценки: Спасибо! Попробую использовать.
Отвечает: PsySex
Здравствуйте, Орлов Владимир Артемьевич!
Ответ предыдущего эксперта корректно работает, если я не ошибаюсь, под ОС версии 9х, я вам предлагаю для 2k и выше.
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 03.10.2007, 13:14 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Попытаюсь разобраться.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Орлов Владимир Артемьевич!
Как перезагрузить Windows
Разместите в модуле:
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
А это в коде:
Dim s As Long
s = ExitWindowsEx(EWX_SHUTDOWN, 0&) 'Так можно сделать Shut down
s = ExitWindowsEx(EWX_LOGOFF, 0&) 'Так можно сделать Log off
s = ExitWindowsEx(EWX_REBOOT, 0&) 'А так Reboot
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 6-ой класс)
Ответ отправлен: 03.10.2007, 19:15 Оценка за ответ: 5 Комментарий оценки: Спасибо! Это как раз то, что я хотел узнать.