bloqueador de teclado antigatos

[aguml]

Pero si haciendo lo que haces en el primer case se supone que ya se cerrará por su vía normal se supone que ya irá al evento OnClose y allí ya me encargo de terminar los hooks ¿para que controlar el segundo evento que pones?

[[escafandra]]

Empezado por aguml

Pero si haciendo lo que haces en el primer case se supone que ya se cerrará por su vía normal se supone que ya irá al evento OnClose y allí ya me encargo de terminar los hooks ¿para que controlar el segundo evento que pones?

Porque como no puedo reproducir tu circunstancia, he querido asegurar el tiro tratando los dos mensajes y, además, es más didáctico.

PD/ He actualizado el control TSysTrayIcon

Saludos.

[aguml]

¿Que le has hecho?

[[escafandra]]

Empezado por aguml

¿Que le has hecho?

Empezado por escafandra

Me he seguido entreteniendo con este componente y he mejorado el efecto de la propiedad Hide eliminando el efecto de "insinuación" en la barra de tareas al minimizarse y he añadido los eventos que responden a los mensajes NIN_BALLOONSHOW, NIN_BALLOONHIDE, NIN_BALLOONUSERCLICK y NIN_BALLOONTIMEOUT

El componente está probado en Builder 5 y 6 y en delphi 6 y 7. Posiblemente funcione en versiones posteriores.

..
Saludos.

[aguml]

¿Qué es eso del efecto insinuación?
Otra cosa, he estado haciendo pruebas para ver si con lo que me pusiste pasaba por los eventos FormClose y FormCloseQuery y he podido comprobar como cierra la aplicacion sin pasar por ninguno de esos eventos. No se como lo hará entonces.
Así lo he dejado al final:

Código PHP:

void __fastcall TFormMain::WndProc(Messages::TMessage &Message)
{
  switch(Message.Msg){
    case WM_QUERYENDSESSION:
      Message.Result = 1;
      return;                        // La VCL no podrá procesar el mensaje
    case WM_ENDSESSION:
      //CloseApp = true;
      //SysTrayCanClose = CloseApp;
      if(hKeyboardHook != NULL){
         SysTrayIcon->Minimize();
         SysTrayIcon->ShowBalloon("Oye tu","¿Como te atreves a cerrar la sesión cuando estoy bloqueando?\nEsto no quedará así, me he quedado con tu cara");
         Sleep(6000);
         UnhookWindowsHookEx(hKeyboardHook);
         hKeyboardHook = NULL;
      }
      if(hMouseHook != NULL){
         UnhookWindowsHookEx(hMouseHook);
         hMouseHook= NULL;
      }
      break;
  }
  TForm::WndProc(Message);
} 


Un ultimo detalle sobre el componente, estaría muy bien el crear una propiedad que indique el tiempo que se mantendrá abierto el bocadillo para poder indicar el tiempo que queremos que se quede abierto. Eso es muy util para poner menos tiempo a mensajes cortos y mas a mensajes largos por ejemplo. ¿Es posible eso o viene un tiempo establecido que no es configurable?

[aguml]

Otro detalle, he instalado la nueva version del componente y lo he probado con mi proyecto. En mi proyecto al dar al boton cerrar de la barra de titulo del formulario se minimiza el formulario al systray y veo que en tu ejemplo al minimizar no se produce el efecto ese que parece que se encoje el formulario hacia la barra de tareas pero en mi caso si se produce ese efecto. No se si es normal con la nueva version de tu componente o no.

[[escafandra]]

He vuelto a actualizar SysTrayIcon y le he añadido el TimeOut de notificaciones en la propiedad BalloonInterval el enlace lo tienes aquí, junto con la versión anterior

Saludos.