Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
7-71405
Avenger
2002-06-07 23:39
2002.08.22
XP-темы


1-71122
zzet
2002-08-12 21:23
2002.08.22
Игнорировать нажатие


14-71382
Yakudza
2002-07-24 14:46
2002.08.22
Привет из Коктбеля !


7-71397
qwen
2002-06-08 00:03
2002.08.22
Как полчить спсиок всех дисков?


3-70977
Vint
2002-07-31 10:02
2002.08.22
BatchMove (вместо букв символ #)