Главная страница
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.018 c
1-71147
Cr@sh
2002-08-13 13:21
2002.08.22
Помоготи с использованием процедуры.


14-71334
cyborg
2002-07-25 09:17
2002.08.22
Объясните пожалуйста насчёт С++


3-71011
velk
2002-07-31 08:17
2002.08.22
ADO тормоза в delphi, а есть ли альтернатива ado но быстрая?


1-71073
VID
2002-08-07 21:02
2002.08.22
Задний фон строки, в RichEdit


14-71369
Феликс
2002-07-27 16:12
2002.08.22
Прикольно