Apagar, reiniciar y cerrar sesión

[jorgegetafe]

Hola, me gustaría saber el código para apagar, reiniciar y cerrar sesión de un ordenador en windows. Gracias.

[[Caral]]

Hola
Codigo de seoane:

Código Delphi [-]
 //Función que permite apagar la computadora o desloguearse
function ShutDownWindows(Flag: word): Boolean;
  var
    TokenPriv: TTokenPrivileges;
    H: DWord;
    HToken: THandle;
  begin
    if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
      OpenProcessToken(GetCurrentProcess,
        TOKEN_ADJUST_PRIVILEGES,HToken);
      LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
        TokenPriv.Privileges[0].Luid);
      TokenPriv.PrivilegeCount := 1;
      TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      H := 0;
      AdjustTokenPrivileges(HToken, FALSE,
       TokenPriv, 0, PTokenPrivileges(NIL)^, H);
      CloseHandle(HToken);
    end;
    Result := ExitWindowsEx(Flag, 0);
 end;

Procedimiento:

Código Delphi [-]
procedure TFMonitor.FormDestroy(Sender: TObject);
begin
  // OJO Usar o uno u otro procedimiento
 
    // con esto se cierra windows
   ShutDownWindows(EWX_POWEROFF);

    // con esto se cierra la sesion
   // ShutDownWindows(EWX_LOGOFF);

end;

Verdad, Seoane es un Maestro.
Saludos

[jorgegetafe]

thank you very much ;-)

[Casimiro Notevi]

Creo recordar que es esto, aunque hace falta que algún experto/maestro lo dé por bueno

ShutDownWindows(EWX_POWEROFF); // apagar windows
ShutDownWindows(EWX_REBOOT); // reiniciar windows

ShutDownWindows(EWX_POWEROFF or EWX_FORCE); // forzar apagado
ShutDownWindows(EWX_REBOOT or EWX_FORCE); // forzar reiniciado

shutdownwindows(EWX_LOGOFF); // cerrar session

Edito: No había visto tu mensaje, Caral.

[[Caral]]

Hola Casimiro
Aqui estoy, mas rapido que en el oeste.
Pero, reconozco que desconocia la manera de reiniciar, ves, importante tu aparte.
Saludos

[jorgegetafe]

Vale la pruebo mañana y os cuento gracias a todos, chao!

[jorgegetafe]

la funcion ShutDownWindows no la reconoce, necesito una uses o algo?

[[seoane]]

Empezado por jorgegetafe

la funcion ShutDownWindows no la reconoce, necesito una uses o algo?

El código de la función ShutDownWindows te lo escribió Caral