Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Windows NT   Найти похожие ветки 

← →
cherepovets ©   (2002-08-12 12:13) [0]

Как из под NT выключить компьютер

---

← →
Aydar ©   (2002-08-12 13:18) [1]

procedure ShutdownNT;
var
hToken:THandle;
tkp:TTokenPrivileges;
ReturnLength:Cardinal;
begin
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(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;
end;

---

← →
Aydar ©   (2002-08-12 13:20) [2]

procedure ShutdownNT;
var
hToken:THandle;
tkp:TTokenPrivileges;
ReturnLength:Cardinal;
begin
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(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;
end;

---

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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c