Как без лишних вопросов выключить комп под WinXP?

← →
Zheks © (2004-04-09 15:21) [0]

Моё почтение мастерам и начинающим программерам! Те варианты которые я попробовал в WinXP не прокатывают :(

← →
tpa (2004-04-09 15:29) [1]

В 2к работает. Попробуй на XP и если не лень сообщи. А то вокруг только 2k.

procedure ExitWindows2k(Flags: UINT);
var Token: THandle;
TP1, TP2: TTokenPrivileges;
D: DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
LookupPrivilegeValue( nil, "SeShutdownPrivilege", TP1.Privileges[0].Luid);
TP1.PrivilegeCount:= 1;
TP1.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(Token, False, TP1, SizeOf(TTokenPrivileges), TP2, D);
ExitWindowsEx(Flags, 0);
end;

← →
WebErr © (2004-04-09 15:55) [2]

BOOL InitiateSystemShutdown(

LPTSTR lpMachineName, // address of name of computer to shut down
LPTSTR lpMessage, // address of message to display in dialog box
DWORD dwTimeout, // time to display dialog box
BOOL bForceAppsClosed, // force applications with unsaved changes flag
BOOL bRebootAfterShutdown // reboot flag
); :))))

← →
WebErr © (2004-04-09 15:56) [3]

function ZwSystemShutdown (Z: Byte): DWORD; external "ntdll.dll",
Z: 1 - по-моему ребут, 2 - выключение - тут на форуме это было

Как без лишних вопросов выключить комп под WinXP? Найти похожие ветки