Завершение работы Windows

← →
Саша (2004-09-21 00:02) [0]

Привет ВСЕМ!!! Подскажите как в Delphi завершить работу Windows

← →
GuAV © (2004-09-21 00:32) [1]

Завершить работу Windows как обычно.
Delрhi автоматически предложит сохранить все несохранённые файлы

Может тебе это нужно?

program NTShutdown;
uses windows;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;

begin
if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then begin
&n
bsp; LookupPrivilegeValue(nil, "SeShutdownPrivilege",
tkp.Privileges[0].Luid);

tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)
then
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end.

Завершение работы Windows Найти похожие ветки