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




Вниз

Выключение компьютера 


Вадим   (2002-01-27 21:11) [0]

Как выключить компьютер под XP

Спасибо.



VuDZ   (2002-01-27 21:41) [1]

official ExitWindows(), ExitWindowsEx()
unofficial CsrClientCallServer(), ZwShutdownSystem()
только вот привилегии для этого нужны...
читай МСДН



Tosov   (2002-01-27 22:37) [2]


var
hToken:THandle;
tkp,PrevState:_TOKEN_PRIVILEGES;
k:DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);

LookupPrivilegeValue(nil, "SeShutdownPrivilege", tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PrevState), PrevState, k);
ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);

end;




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




Наверх





Память: 0.71 MB
Время: 0.023 c
1-90934           Turalyon              2002-03-14 12:14  2002.03.28  
Потоки


1-90989           Aleksandr             2002-03-15 12:11  2002.03.28  
Как программу сделать Service для w2k?


1-90867           В.К.                  2002-03-16 11:33  2002.03.28  
Пара вопросов о компонентах


3-90738           aleks2000             2002-02-24 12:48  2002.03.28  
<B>Как открыть ДОС базу данных dBase III в Делфи, так чтобы было написано на нормальном русском</B>


1-90958           Alibaba               2002-03-14 17:47  2002.03.28  
Delphi-Excel