Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Выключение [D6, Win95/98, Win2k]

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

easy (2002-06-22 11:38:00) [1]
http://delphi.mastak.ru/cgi-bin/download.pl?get=1024730536&n=0

ZZ (2002-06-21 17:16:00) [2]
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.

ruslan_as (2002-06-21 17:05:00) [3]
Эту страницу я видел. Код от туда:
ExitWindowsEx(EWX_Force or EWX_PowerOff or EWX_ShutDown, 0) не реагирует на нажатие.

ZZ (2002-06-21 16:39:00) [4]
Вот так надо искать
http://delphi.mastak.ru/cgi-bin/search.pl?words=ExitWindowsEx&n=101

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

ZZ (2002-06-21 16:05:00) [6]
ruslan_as
Поищи по сайту. А если точнее - поищи слово ExitWindowsEx в разделе FAQ.

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

VDen (2002-06-21 15:51:00) [8]
На Хакер.ru лежали исходники трояна на Delphi(!). Там не было описано как выключить или перезагрузить компьютер по команде. Так что мало ли... :))

Kaban (2002-06-21 15:46:00) [9]
Этот вопрос помоему каждый день обсуждается, зачем интересно народу столько нужно компьютер выключать. Мне, например, с этим не приходилось сталкиваться

VDen (2002-06-21 15:43:00) [10]
Этот вопрос обсуждался 3 дня назад.
ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE,0)

Наверх

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