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

[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.

[jorgegetafe]

thank you very much ;-)

[[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

[[Caral]]

Hola
Yo no escribi el codigo, hey que lo he dicho en mi primer mensaje, seoane.

Escrito por mi:
Codigo de seoane:

Si hay que echarle la culpa a alguien no es a mi.
Que va seoane, no soy capaz de hacer cosas tan buenas, este es todo tuyo, yo solo copie y pegue.
Saludos

[[Delphius]]

Bueno muchachos... tampoco es que esten peliandose por un copyrigth ¿Se convertirá esto en un segundo reconocimiento del trabajo ajeno?

Saludos,

[roman]

Que seoane me desmienta, pero su intervención no fue para reclamar autoría- cosa que ya Caral había dejado en claro -sino para manifestar su extrañeza ante el comentario

Empezado por jorgegetafe

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

pues, siendo que Caral acababa de escribirla aquí, es por demás raro que se pregunte eso, ¿no creen?

// Saludos

[Casimiro Notevi]

me perdío

[jorgegetafe]

Utilizando la función que me habeis dado me salte este error:

"statement expectec, but expression of type 'longbool found, en la siguiente linea

Código Delphi [-]
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,HToken);

y en esta otra

Código Delphi [-]
TokenPriv.Privileges[0].Luid);

y en esta

Código Delphi [-]
CloseHandle(HToken);

Para acabar me dice que result no esta definido.

A ver si me podeis ayudar porque no me entero de nada del codigo.

[[seoane]]

La función que puso Caral debería de funcionar, pero aquí te dejo una mas genérica, que seguro que funciona:

Código Delphi [-]
function EnablePrivilege(PrivilegeName: PChar; Enable: Boolean): Boolean;
var
  hToken: THandle;
  Tp: TOKEN_PRIVILEGES;
  Luid: TLargeInteger;
begin
  Result:= FALSE;
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY or TOKEN_READ, hToken) then
    if LookupPrivilegeValue(nil,PrivilegeName,Luid) then
    begin
      Tp.PrivilegeCount:= 1;
      Tp.Privileges[0].Luid:= Luid;
      if Enable then
        Tp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED
      else
        Tp.Privileges[0].Attributes:= 0;
      Result:= AdjustTokenPrivileges(hToken,FALSE,Tp,0,nil,PDWORD(nil)^);
      CloseHandle(hToken);
    end;
end;

Ahora para apagar:

Código Delphi [-]
// Elevamos nuestros privilegios
EnablePrivilege('SeShutdownPrivilege',TRUE);
// Y Apagamos
ExitWindowsEx(EWX_POWEROFF, 0);

[dec]

Hola,

Empezado por Delphius

Bueno muchachos... tampoco es que esten peliandose por un copyrigth ¿Se convertirá esto en un segundo reconocimiento del trabajo ajeno?

¡Aquí tiran con bala! ¡Cuidado!

[jorgegetafe]

Gracias season, ese código si que me funciona.

¿Y para reiniciar y cerrar sesión?

gracias.

[dec]

Hola,

Si revisas la ayuda de la función "ExitWindowsEx" verás que existen otras constantes a parte de "EWX_POWEROFF" que puedes utilizar.

[jorgegetafe]

Empezado por dec

Hola,

Si revisas la ayuda de la función "ExitWindowsEx" verás que existen otras constantes a parte de "EWX_POWEROFF" que puedes utilizar.

Gracias mirare en ayuda.

[roman]

Empezado por jorgegetafe

Utilizando la función que me habeis dado me salte este error:

"statement expectec, but expression of type 'longbool found, en la siguiente linea

Jorge, esto se debe a lo mismo que te pasó en el otro hilo. Tienes desactivada la opción de "Extended Syntax"

// Saludos

[roman]

Empezado por Casimiro Notevi

me perdío

¿Qué te perdió?

// Saludos