Mensaje para Apagar Windows

[yoennis]

Hola amigos:
Tengo una aplicacion Delphi y quiero que al hacer click en el boton Apagar se me muestre el cuadro de dialogo de apagar Windows tal y como es en el sistema original y que por supuesto haga lo mismo

[dec]

Hola,

No sé exactamente qué programa "lanza" ese cuadro de diálogo, pero, con ayuda de Delphi, desde tu propia aplicación, puedes apagar el sistema, reiniciarlo, hibernarlo, suspenderlo, etc. Hace poco se ha hablado de ello en los foros, busca, por ejemplo, por la función "ExitWindowsEx", seguro que encuentras información. De todas formas algún otro compañero puede responder exactamente a lo que pides.

[roman]

Código Delphi [-]
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Shell: OleVariant;

begin
  Shell := ComObj.CreateOleObject('shell.application');
  Shell.ShutDownWindows;
end;

Truco visto en el Guille

// Saludos

[yoennis]

Bueno mano invente el cuadro de dialogo para mi aplicacion lo que pasa ahora es que cuando lo mando a hacer una cosa no la hace porque soy un usuario restringido....como por ejemplo si la mando a apagar se cierra la sesión nada mas...

Si tienes algo mas que decirme acerca de esto pues te lo agradezco

[look]

Las Jedi Traen un componente llamado JvExitWindowsDialog , este te puede servir tambien ...

[[escafandra]]

Empezado por yoennis

Bueno mano invente el cuadro de dialogo para mi aplicacion lo que pasa ahora es que cuando lo mando a hacer una cosa no la hace porque soy un usuario restringido....como por ejemplo si la mando a apagar se cierra la sesión nada mas...

Si tienes algo mas que decirme acerca de esto pues te lo agradezco

Aunque no seas Administrador, puedes apagar ¿no?. Bueno, lo que le falta a tu aplicación es activar el privilegio SeShutdownPrivilege.

Revisa este hilo donde se habla de un tema parecido y la API AdjustTokenPrivileges.

Saludos.