Ver Mensaje Individual
  #3  
Antiguo 05-12-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por kanvictor
Dilema: dejo la linea.. y no me cierra el windows
saco la linea.. y me cierran la aplicacion los usuarios
Así es. El problema está en que el evento OnCloseQuery no distingue si la aplicación se está cerrando porque se cierra la sesión de Windows o simplemente porque un usuario la cierra.

Lo único que tienes que hacer es ayudarle un poco. Declara una variable booleana TerminandoSesion que normalmente estará en false y que le indicará al evento si debe o no cerrarse:

Código Delphi [-]
procedure Form1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := TerminandoSesion;
end;

En el manejador del mensaje WM_QUERYENDSESSION pones TerminandoSesion en true.

// Saludos
Responder Con Cita