Скачать: CL | DM;

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

← →
kerrik ©   (2002-06-27 00:13) [0]

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

---

← →
Song ©   (2002-06-27 09:12) [1]

В FAQ есть.

---

← →
filimonic   (2002-06-27 12:13) [2]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c