Как выключить/перезагрузить компьютер в Windows 7?

[pavellyba]

Как выключить/перезагрузить компьютер в Windows 7?

[A-IX-2]

Пуск-Завершение работы/Перезагрузка
ЗЫ Какой вопрос - такой ответ)

[dmitriegorovih]

function MyExitWindows(RebootParam: Longword): Boolean;
var  
  TTokenHd: THandle;  
  TTokenPvg: TTokenPrivileges;  
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;  
  tpResult: Boolean;  
const  
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';  
begin  
  if Win32Platform = VER_PLATFORM_WIN32_NT then  
  begin  
    tpResult := OpenProcessToken(GetCurrentProcess(),  
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,  
      TTokenHd);  
    if tpResult then  
    begin  
      tpResult := LookupPrivilegeValue(nil,  
                                       SE_SHUTDOWN_NAME,  
                                       TTokenPvg.Privileges[0].Luid);  
      TTokenPvg.PrivilegeCount := 1;  
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
      cbtpPrevious := SizeOf(rTTokenPvg);  
      pcbtpPreviousRequired := 0;  
      if tpResult then  
        Windows.AdjustTokenPrivileges(TTokenHd,  
                                      False,  
                                      TTokenPvg,  
                                      cbtpPrevious, 
                                      rTTokenPvg, 
                                      pcbtpPreviousRequired); 
    end; 
  end; 
  Result := ExitWindowsEx(RebootParam, 0);
end;

MyExitWindows(EWX_REBOOT or EWX_FORCE); // Перезагрузка
MyExitWindows(EWX_shutdown or EWX_FORCE); // Выключение

[pavellyba]

dmitriegorovih, спасибо! То что надо!

[М_Виктор]

Сообщение от pavellyba

Как выключить/перезагрузить компьютер в Windows 7?

В список модулей своей формы добавьте модуль ShellAPI
Для какой-нибудь кнопочки на своей форме напишите

MyExitWindows(EWX_REBOOT or EWX_FORCE); {перезагрузка}

или

MyExitWindows(EWX_POWEROFF or EWX_FORCE); {выключить}

или

ShellExecute(handle, nil,'shutdown',' -s -t 10 -c "Выключение через 10 сек."','', SW_SHOWNORMAL);

[pavellyba]

А как запустить режим гибернации?

[waleri]

Сообщение от pavellyba

А как запустить режим гибернации?

SetSuspendState()