Apagar, reiniciar y cerrar sesión
 

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

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.:D
Saludos

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


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

thank you very much ;-)

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

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

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

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

Hola
Yo no escribi el codigo, hey que lo he dicho en mi primer mensaje, seoane.
Si hay que echarle la culpa a alguien no es a mi.:D
Que va seoane, no soy capaz de hacer cosas tan buenas, este es todo tuyo, yo solo copie y pegue.:p
Saludos

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

Saludos,

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

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

// Saludos

me perdío :confused:

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.

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);

Hola,

¡Aquí tiran con bala! ¡Cuidado! :D :D

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

¿Y para reiniciar y cerrar sesión?

gracias.

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.

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

// Saludos

¿Qué te perdió?

// Saludos