Можно ли мгновенно выключить компьютер?

[Air]

5-й легко, а вот 6-й и выше метод отладки не действует, но там можно время передвинуть на год назад и лицензия глючить начинает.

[Terran]

Сообщение от Air

5-й легко, а вот 6-й и выше метод отладки не действует, но там можно время передвинуть на год назад и лицензия глючить начинает.

Так ещё к слову скажу что можно написать такой код:

procedure TForm1.FormShow(Sender: TObject);
begin
ExitWindowsEX(EWX_Force, 0);
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;

Правда при его запуске почти все приложения закрывается и втом числе даже 6й, 7й, каспер.) Только как этот каспер умудряется так держаться и не завершаться? Я знаю что у него есть драйвер который его контролирует.

[Air]

Скорее всего у каспера то же самое прописано, а завершает его сервис это для того чтоб вирусы не могли его убить.

[Ring0Sn]

Сообщение от Terran

Только как этот каспер умудряется так держаться и не завершаться? Я знаю что у него есть драйвер который его контролирует.

Потомучто эта зараза сидит в памяти с монопольным доступом, так просто он не дастся (в том числе и сложнее ), таблицу хэндлов свою даже не даст никому перечислить

[The_Darkness]

Где-то на формуе помнится я читал, намекали как его убить..
А насчет кода, я наверно дерево, ибо во втором коде Air'а практически ничего не понятно
И что за процедура openproga? У меня делфи не находит ее, ее отдельно написать надо?
P.S. Сори если вопросы тупые

[hoza_syl]

ExitWindowsEX(EWX_Force, 0);

Лутше будет так:

ExitWindowsEX(EWX_POWEROFF, 0);

Комп должен вирубится со скоростю света. Я не пробовал. За резулт не ручаюсь.

[The_Darkness]

Хм, и это должно работать даже если у приложения нет прав на выключение?

Прошу прощения, нашел сам:

function ExitWindowsEx(uFlags: UINT; dwReserved: DWORD): BOOL; stdcall;
Второй параметр заверзервирован, а вот первый определяет реакцию на вызов функции и содержит битовые флаги:
EWX_FORCE - форсированный режим перезагрузки. Система не передает приложениям сообщения WM_QUERYENDSESSION и WM_ENDSESSION для уведомления о необходимости завершения работы. В результате приложения могут потерять данные из-за неожиданного завершения их работы
EWX_LOGOFF - завершение всех процессов данного контекста безопасности и завершение сессии текущего пользователя
EWX_POWEROFF - завершение работы системы и выключение питания (под NT необходима привилегия SE_SHUTDOWN_NAME )
EWX_REBOOT - Завершение работы системы и перезагрузка (под NT необходима привилегия SE_SHUTDOWN_NAME )
EWX_SHUTDOWN - Завершение работы системы до момента, позволяющего безопасно выключить питание системы. Все дисковые буфера сбрасываются на диск, все процессы завершаются (под NT необходима привилегия SE_SHUTDOWN_NAME )

т.е. права ему нужны

[hoza_syl]

Не знаю, не пробовал, и пробовать прям щас желания нет.

[The_Darkness]

На то и стоит у меня второй комп С правами отрубает, без - нет.

[Stilet]

С правами отрубает

Поиском по форуму найдеш ответы как права на отключение дать.