Выключение

← →
ruslan_as (2002-06-21 15:41) [0]

Уважаемые мастера. Бьюсь над выключением компьютера.
ExitWindowsEx(EWX_SHUTDOWN,0) работает только в Win98, а в 2000-м переходить в режим блокировки. Мне нужно что бы без вопросов завершал работу.
Заранее спасибо!

← →
VDen (2002-06-21 15:43) [1]

Этот вопрос обсуждался 3 дня назад.
ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE,0)

← →
Kaban (2002-06-21 15:46) [2]

Этот вопрос помоему каждый день обсуждается, зачем интересно народу столько нужно компьютер выключать. Мне, например, с этим не приходилось сталкиваться

← →
VDen (2002-06-21 15:51) [3]

На Хакер.ru лежали исходники трояна на Delphi(!). Там не было описано как выключить или перезагрузить компьютер по команде. Так что мало ли... :))

← →
ruslan_as (2002-06-21 15:59) [4]

Не идет! После команды ExitWindowsEx(EWX_FORCE,0) компьютер все равно выходит на Блокировку.
>> Kaban
Иногда приходиться. В моем случае программа создает импортом около 30 файлов Excel (по 20000 записей каждый), что занимает внушительное время. Приходиться на вечер оставлять. У одних клиентов идет (под Win98), а под Win 2000 такая проблема.

← →
ZZ (2002-06-21 16:05) [5]

ruslan_as
Поищи по сайту. А если точнее - поищи слово ExitWindowsEx в разделе FAQ.

← →
ruslan_as (2002-06-21 16:24) [6]

Нашел много, но не помогло:
ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0); вообще ни как не реагирует.
ExitWindowsEx(EWX_FORCE , 0) - завершает сеанс
ExitWindowsEx(EWX_SHUTDOWN, 0)- завершает сеанс
Проблема я думаю в том что я вхожу в Домен, а выхожу только из сеанса. Как обогнуть?

← →
ZZ (2002-06-21 16:39) [7]

Вот так надо искать
http://delphi.mastak.ru/cgi-bin/search.pl?words=ExitWindowsEx&n=101

← →
ruslan_as (2002-06-21 17:05) [8]

Эту страницу я видел. Код от туда:
ExitWindowsEx(EWX_Force or EWX_PowerOff or EWX_ShutDown, 0) не реагирует на нажатие.

← →
ZZ (2002-06-21 17:16) [9]

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15

небольшое дополнение как выключить компутер с NT
program NTShutdown; uses windows; var hToken: THandle; tkp: TTokenPrivileges; ReturnLength: Cardinal; begin if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES orTOKEN_QUERY, hToken) then begin LookupPrivilegeValue(nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid); tkp.PrivilegeCount:=1; // one privelege to set tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0); end;end.

← →
easy (2002-06-22 11:38) [10]

http://delphi.mastak.ru/cgi-bin/download.pl?get=1024730536&n=0

Выключение Найти похожие ветки