Bloquear aplicación por inactividad

[[enecumene]]

Hola compañeros, se me ha ocurrido este caso y quisiera aplicarlo a mi sistema, y es que cuando el usuario no está utilizando el sistema, ya sea, abriendo forms, click a botones, consulta de datos y que en un tiempo determinado vamos a decir en 5 minutos me salga una ventana de login encima de la aplicación como una medida de seguridad en caso que el usuario deba pararse e ir al baño, no se si me entendieron, alguno conoce algun truco o codigo?.

Saludos.

[ixMike]

Hola.

Pues yo hice eso una vez, de esta manera:

-Creo una variable global contador, y en FormCreate la inicializo a cero.
-Pongo un Timer, Interval 60000, que en OnTimer incremente el valor de dicha variable.
-Creo un procedure que resetea la variable (y puede que haga algo más), lo llamo siempre que hago algo (clicks en los menús, escribir...).
-En el evento OnTimer, comprobar si el contador supera al tiempo máximo de espera (en minutos), y si es así, llamar a un procedimiento de Bloquear (si el programa se bloquea por no estar siendo usado, pues ya puedes añadir la opción de que el usuario lo bloquee a placer antes de ausentarse).


Salu2

P.D.: Mira en "Temas similares", más abajo

[[enecumene]]

Bueno, gracias a ixMike por su ayuda pude hacer el siguiente codigo (aunque es mejorable, pero sirve):

Código Delphi [-]
var
  Incio: TIncio(Form);
  Contador: Integer;

procedure Tincio.FormCreate(Sender: TObject);
var Contador, TiempoBloqueo: Integer;
begin
  Contador:=0;  
end;

en el OnTimer del Timer:

procedure Tincio.Timer1Timer(Sender: TObject);
begin
Inc(Contador);
if Contador = 5 then
  begin
    ShowMessage('El sistema se bloqueó');
  end;
end;

en el OnMessage de un ApplicationEvents:

procedure Tincio.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if
  ((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST))
  or
  (Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)
  then
    begin
      Contador := 0;
    end;

Saludos.

[[Caral]]

Hola
Con el personal esto hace mejor efecto:

Código Delphi [-]
var
  Incio: TIncio(Form);
  Contador: Integer;

procedure Tincio.FormCreate(Sender: TObject);
var Contador, TiempoBloqueo: Integer;
begin
  Contador:=0;  
end;

en el OnTimer del Timer:

procedure Tincio.Timer1Timer(Sender: TObject);
begin
Inc(Contador);
if Contador = 5 then
  begin
    MessageBox(Handle, 
             PChar('Si este G..... No viene en cinco minutos esta despedido.' + #13#10 + 
                   'Ahh, y que no me venga con cuentos de que le dolía el estomago.'), 
             PChar('Sistema bloqueado'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
  end;
end;

en el OnMessage de un ApplicationEvents:

procedure Tincio.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if
  ((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST))
  or
  (Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)
  then
    begin
      Contador := 0;
    end;

Saludos

[[enecumene]]

Código Delphi [-]
if Contador = 5 then
  begin
    MessageBox(Handle, 
             PChar('Si este G..... No viene en cinco minutos esta despedido.' + #13#10 + 
                   'Ahh, y que no me venga con cuentos de que le dolía el estomago.'), 
             PChar('Sistema bloqueado'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
  end;

Jajaja, esa estuvo buena, lo voy a poner despues de cada n veces que sale el mensaje.

[[egostar]]

Empezado por Caral

Si este G..... No viene en cinco minutos esta despedido.
'Ahh, y que no me venga con cuentos de que le dolía el estomago.

Mas sabe el diablo por VIEJO KBRON que por diablo,

Salud OS