Как завершить сеанс работы или перезагрузить Windows Vista

Как завершить сеанс работы или перезагрузить Windows Vista

Всё нормально работает и на висте и на ХР.

Выключение компа:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_POWEROFF or ewx_force,0);
end;

А вот перезагрузка:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
end;

Только эти функции не будут спрашивать другие программы, чтобы они например сохранили данные.
Агрессивный метод так сказать.

Эта запись была добавлена в Вторник, 13 мая, 2008 - 6:12 В разделы Операционная система, Процессы. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.