Перезагрузка компа, перез. системы и выключение компа как ?

← →
maxim2 © (2002-12-12 21:20) [0]

Привет всем!
Программно как?

← →
Song © (2002-12-12 22:19) [1]

ExitWindowsEx()

← →
Udjin © (2002-12-13 15:42) [2]

Не выключить его так под NT можно так

function ExitWindows(uFlags: UINT): BOOL;
var
ProcessHandle: THandle;
TokenHandle: THandle;
Luid: Int64;
Tkp: TTokenPrivileges;
BufferNeeded: DWORD;
begin
if Win32Platform=VER_PLATFORM_WIN32_NT then begin
ProcessHandle:=GetCurrentProcess;
OpenProcessToken(ProcessHandle, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle);
LookupPrivilegeValue(nil, "SeShutdownPrivilege", Luid);
Tkp.PrivilegeCount:=1;
Tkp.Privileges[0].Luid:=Luid;
Tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(TokenHandle, FALSE, Tkp, 0, nil, BufferNeeded);
end;
Result:=ExitWindowsEx(uFlags, $FFFF);
end;

← →
Udjin © (2002-12-13 15:43) [3]

Вообще вопросу этому давно пора в FAQ

Одного не достаточно, вот первый быстро найденный http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15

Перезагрузка компа, перез. системы и выключение компа как ? Найти похожие ветки