Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как программно выключить компьютер [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


Наверх

Титульная страница Поиск, карта сайта Написать письмо