Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Как выключить компьютер по 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




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
3-32425           JEff                  2002-02-04 19:02  2002.03.11  
Ребята!!! У меня к вам вопросик (дилетантского хар-ра)


3-32420           knyaz17               2002-02-11 16:55  2002.03.11  
Вопрос по MS-SQl 7.0


14-32551          MJH                   2002-01-26 11:31  2002.03.11  
MSVCR70.DLL


1-32458           Ig                    2002-02-19 22:08  2002.03.11  
Как правильно обработать сообщения?


1-32450           yaJohn                2002-02-20 13:11  2002.03.11  
bistraya Windows ;)))