Главная страница
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
7-71392
Chakchir
2002-06-10 10:09
2002.08.22
Как определить весь объем оперативки и сколько из нее свободно.


3-71006
kengura
2002-07-30 21:00
2002.08.22
IBQuery und IBUpdateSQL + отображение новой записи в таблице


3-71036
Nikolai_S
2002-07-25 11:33
2002.08.22
Как в Access с помощью SQL-запроса сделать поле необязательным?


1-71100
Alfik
2002-08-12 19:36
2002.08.22
unitstall


14-71329
Brand
2002-07-26 23:46
2002.08.22
Расположение окон Delphi