Apagar, reiniciar y cerrar sesión

[[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 Noteví]

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

[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

[jorgegetafe]

Ya me han aclarado la duda, muchas gracias.

[Casimiro Noteví]

Empezado por roman

¿Qué te perdió?

// Saludos

Perdón, es que me había saltado un par de mensajes y no era capaz de seguir el hilo.