Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.11;
Скачать: CL | DM;

Вниз

Как выключить компьютер по Windows 2000   Найти похожие ветки 

 
Dmitry V. Averuanov ©   (2001-09-24 14:22) [0]

Как выключить компьютер по Windows 2000 ???


 
Iskander M   (2001-09-24 15:12) [1]

Привет!

program Shutdown;
uses windows;
var hToken:THandle;
tkp,PrevState:_TOKEN_PRIVILEGES;
k:DWORD;
begin
// Get a token for this process.
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
hToken);

// Get the LUID for the shutdown privilege.
LookupPrivilegeValue(nil, "SeShutdownPrivilege", tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

// Get the shutdown privilege for this process.
AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PrevState), PrevState, k);

ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);
end.


 
Paradox   (2001-09-28 02:01) [2]

Procedure Form1.Button1.click(Sender:TObject);
begin
ExitWindowsEx(Ewx_ShutDown,0);
end;


 
Zyv   (2001-12-07 17:23) [3]

Подробно для всех систем см.
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1007368114&n=2



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
14-32570
wicked
2002-01-28 13:44
2002.03.11
беспредел в Москве


6-32522
copyr25
2001-12-25 05:41
2002.03.11
Trace Route


3-32423
МАРАТ
2002-02-12 15:51
2002.03.11
Построить график по DBF


4-32604
BorisM
2002-01-11 04:07
2002.03.11
Размеры окна другого приложения...


3-32392
Nest
2002-02-12 11:26
2002.03.11
Надо сформировать запрос (Select). Мыслб крутится, но не могу ухвтить - помогите пожалуйста. Очень пожалуйста.