Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   WM'S de cierre de windows? (https://www.clubdelphi.com/foros/showthread.php?t=27951)

marceloalegre 05-12-2005 15:44:14

WM'S de cierre de windows?
 
Buen dia:
Estoy con otro problema existencial... necesito saber de saber que "orden" manda el windows a las aplicaciones de lo que es apagado - reinicio - y cierre de sesion...

encontre el mensaje WM_QUERYENDSESSION pero me parece que lo manda en los 3 casos...

no hay manera de saber que orden manda windows a las aplicaciones?

Mi problema puntual es una aplicacion que esta corriendo con varios hilos, timers, y servicios etc y por alguna causa cuando le pongo apagar reiniciar o cerrar sesion.. el windows NO HACE NADA!!!! :rolleyes: ... entonces mi idea era darle una mano al windows ya que los comandos de apagado de delphi desde la aplicacion funcionan perfectamente...

Quizas alguien tuvo ese problema o me da otra idea...

Muchas gracias a todos!!

marceloalegre 05-12-2005 19:26:45

Dilema...
 
Despues de meditar un poco todo esta "aventura" que queria generar pense... debo tener algo al cerrar

y en el CloseQuery tengo un : CanClose:=False;

sacando esto el windows cierra perfectamente....

pero... he arruinado mi objetivo de cuando puse esa linea... evitar que me cierren la aplicacion con un alt + f4 .... que puedo hacer?
Dilema: dejo la linea.. y no me cierra el windows
saco la linea.. y me cierran la aplicacion los usuarios :)

:confused: :confused: :confused: :confused: :confused: :confused:

roman 05-12-2005 19:50:21

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

marceloalegre 05-12-2005 19:58:23

GRANDE ROMAN!!! SIEMPRE CON ESTOS "MILAGROS" PARA LOS MORTALES...

jaja era tan simple ahora que lo veo!, pero bueno, era cuestion de que alguien aclarara la situación, Muchas gracias!

roman 05-12-2005 20:12:46

Aunque si yo fuera tu usuario, podría cerra tu aplicación sin salirme de Windows:

Para ello abriría el block de notas y escribiría cualquier cosa sin guardar el archivo. Luego le diría a Windows que cierre la sesión. Tu aplicación se va a cerrar pero entes de que Windows se cierre, el bloc de notas me preguntará si deseo guardar los cambios. Le pongo que cancele y ¡listo!, Windows no se cierra pero tu aplicación sí.

:D

Claro, hay un remedio. No sé si es la mejor opción pero a mi me ha funcionado.

// Saludos

marceloalegre 05-12-2005 20:55:31

Ya le puse el remedio tambien, todo excelente, Mil gracias! me solucionaste un problema que me estaba retrasando mucho!!!

Graciassss!


La franja horaria es GMT +2. Ahora son las 09:41:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi