Как выключить компьютер под 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.

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