Cierre de sesion en Window 7 por codigo

[lgarcia]

Hola: Tenia una aplicacion que corria sobre XP y cuando los usuarios terminaban el boton de cierre lo que hacia era apagar la PC con este codigo.

Código Delphi [-]
procedure TFormAutentificacion.btnSalirClick(Sender: TObject);
begin
  WinExec(PAnsiChar('shutdown -s'), SW_HIDE);
  Close;
end;

Esa misma aplicacion la voy a migrar para un terminal server con W7 como puedo cerrar la sesion.

Saludos
Luis Garcia

[[AgustinOrtu]]

Fijate si podes sacar provecho del siguiente codigo.

El mismo lo he tomado y adaptado un poco de esta web

Esta basado en la funcion ExitWindowsEx

Ejemplo de uso:

Código Delphi [-]
uses
  Win.Power;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowsPoweOff; // apaga la computadora
  WindowsReboot; // reinicia la computadora
  WindowsLogOff; // cierra la sesion actual
end;

[olbeup]

Empezado por lgarcia

Hola: Tenia una aplicacion que corria sobre XP y cuando los usuarios terminaban el boton de cierre lo que hacia era apagar la PC con este codigo.

Código Delphi [-]
procedure TFormAutentificacion.btnSalirClick(Sender: TObject);
begin
  WinExec(PAnsiChar('shutdown -s'), SW_HIDE);
  Close;
end;

Esa misma aplicacion la voy a migrar para un terminal server con W7 como puedo cerrar la sesion.

Saludos
Luis Garcia

Hola lgarcia,

Cambia la -s por -l (ele) eso hace un logout, cierre de sesión y funciona en todos los windows, esa o no termnal server.

Un saludo.