Перезагрузка в WinNT (Убивает процессы)Delphi , ОС и Железо , КомпьютерПерезагрузка в WinNT (Убивает процессы)
Автор: DeMoN-777 { **** UBPFD *********** by delphibase.endimus.com **** >> Перезагрузка в WinNT (Убивает процессы) Зависимости: Windows Автор: DeMoN-777, DeMoN-777@yandex.ru, Санкт-Петербург Copyright: @ Дата: 21 июня 2002 г. ***************************************************** } procedure reboot2; var hToken: THandle; tkp: _TOKEN_PRIVILEGES; DUMMY: PTokenPrivileges; DummyRL: Cardinal; begin DUMMY := nil; if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken ) then raise TShutdownEx.Create('OpenProcessToken failed'); if (not LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid)) then raise TShutdownEx.Create('LookupPrivilegeValue failed'); tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := $0002; //SE_PRIVILEGE_ENABLED = $00002 AdjustTokenPrivileges(hToken, FALSE, tkp, 0, Dummy, DummyRL); if (GetLastError() <> ERROR_SUCCESS) then raise TShutdownEx.Create('AdjustTokenPrivileges failed'); if (not ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0)) then raise TShutdownEx.Create('ExitWindowsEx failed'); end; Процедура reboot2 в WinNT выполняет перезагрузку системы, убивая все процессы и необходимые привилегии для выполнения этой операции. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |