Apagar, reiniciar y cerrar sesión

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

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

[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

[jorgegetafe]

Ya me resolvieron la duda, gracias de todas formas.

[roman]

Empezado por Casimiro Notevi

me perdío

¿Qué te perdió?

// Saludos

[jorgegetafe]

Ya me han aclarado la duda, muchas gracias.

[roman]

Yo lo dije para que comprendieras porqué la función que escribió Caral no te funciona, pero bueno...

// Saludos

[[Caral]]

Hola
Pero bueno Egostar amanecio sensible por aqui:http://www.clubdelphi.com/foros/show...176#post206176
Y vosotros no andáis muy lejos, que esta pasando en Mexico, el tequila subió.?
Saludos

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