_PRIVILEGE_ENABLED;
h:=0;
AdjustTokenPrivileges(hToken, False, tp, 0, PTokenPrivileges(nil)^, h);
CloseHandle(hToken);
//Hier nun der besondere Teil
NtShutdownSystem(SHUTDOWNNOREBOOT);
end;
end
Else Result:=ExitWindowsEx(Aflag, 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExWindows(EWX_SHUTDOWN or EWX_FORCE);
end;
end.
上一页 [1] [2]
|
|
