Foros Club Delphi - Cierre de sesion en Window 7 por codigo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Cierre de sesion en Window 7 por codigo (https://www.clubdelphi.com/foros/showthread.php?t=91107)

lgarcia

12-11-2016 19:03:24

Cierre de sesion en Window 7 por codigo

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

12-11-2016 19:50:44

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

14-11-2016 09:24:48

Cita:

Empezado por lgarcia (Mensaje 510685)

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.

La franja horaria es GMT +2. Ahora son las 15:24:51.