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

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

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

WindowsXP-Выключение [D7, WinXP]

Killer-App © (2005-04-22 21:34:00)
Пожалуйста! кто может подскажите как программно выключить WindowsXP есле можете оставте код написания такой программы

(2005-04-25 12:57:00) [1]
Удалено модератором

alpet (2005-04-25 12:47:00) [2]
2 VuDZ
У меня есть кнопка на блоке питания - вырубает за доли секунды. Только это как-то неправильно, как и предложенный тобой способ. Так-что лучше использовать код из [2].

(2005-04-25 12:39:00) [3]
Удалено модератором

VuDZ (2005-04-24 18:49:00) [4]
если надо моментально - юзай ZWShutdown() - примерно так называет - ф-ия недокументированная, но у меня сервак с SQL Server + IIS + куча всего прочего за 5 сек вырубала ) если найду ссылку - скину

Grief (2005-04-23 10:22:00) [5]
ох, спасибо!

Alpine (2005-04-22 23:52:00) [6]
Вот пример :

procedure shutdown;
var
hToken:THandle;
tkp,PrevState:_TOKEN_PRIVILEGES;
k:DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);

LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PrevState), PrevState, k);
ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);

Anatoly Podgoretsky (2005-04-22 22:17:00) [7]
На мой сайт за Чаво или на любой другой, мало чаво где это не показано.

Наверх

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