| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как выключить компьютер под Win2000 (NT,XP) [D4, D5, D6, NT4, Win2k, WinXP]

kerrik ©   (2002-06-27 00:13:00) 

Как выключить компьютер под Win2000 (NT,XP)?

---

filimonic   (2002-06-27 12:13:00) [1]

Var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength, What: Cardinal;

procedure TForm1.Button1Click(Sender: TObject);
begin
What := EWX_ShutDown;
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege", tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(What, 0)
end;
end.

---

Song   (2002-06-27 09:12:00) [2]

В FAQ есть.

---

Наверх