![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как программно выключить компьютер [D6, Win95/98]
rams © (2004-08-04 18:35:00)Возможно ли на форме программы предусмотреть такую кнопочку, чтобы по нажатии на нее, программа бы закончила свою работу и "активизировался" процесс выключения компьютера, а в идеале что-бы компьютер полностью выключился без каких-либо предварительных вопросов.
lutik (2004-08-05 15:57:00) [1]Удалено модератором
Примечание: Задай свой вопрос в своей личной ветке
VMcL (2004-08-04 20:13:00) [2]FAQ: http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15
Кролик Енерджайзер (2004-08-04 18:58:00) [3]1. Если для локальной машины
BOOL ExitWindowsEx(
UINT uFlags,
DWORD dwReason
);
...
// Shut down the system and force all applications to close.
ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0)
2. Удалённую машину (но можно и локалку :) через WMI
пример на VB
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//ИМЯ_МАШИНЫ").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Reboot()
Next