hooks de teclado y raton

[dec]

Hola,

Estoy seguro de que si hubieras buscado un poco hubieras encontrado información de sobra, pero, en fin. He preparado un ejemplo muy sencillo. Es un proyecto que consta de dos unidades. Una es un formulario y la otra es "UHooks.pas", donde se registran sendos "Hooks" de teclado y ratón.

En la unidad "UHooks.pas" se declara también una variable pública "SegundosInactividad" que se pone a cero cuando el ratón o el teclado son utilizados. El formulario cuenta con un "TTimer", de modo que cada segundo comprueba la variable "SegundosInactividad", informa de los segundos de inactividad, y avisa (mediante un mensaje) si transcurren 20 segundos de inactividad.

[johanpgr]

Gracias amigo me sirvió, lo adapte a mis necesidades y quedo bárbaro, muchas gracias por tu ayuda.

[hot1974]

Muchas Gracias Dec todo jala de maravilla.

Saludos


Alex Ontiveros

[Neftali [Germán.Estévez]]

A nivel de tu aplicación (no del sistema) también puedes usar la llamada al procedimiento

Código Delphi [-]
  function GetLastInputInfo; external user32 name 'GetLastInputInfo';

que hay en la unit Windows, que te devolverá el número de milisegundos de inactividad en tu aplicación.

[hot1974]

muchas gracias por tu respuesta neftali, lo voy a probar tambien.

saludos