Bloquear aplicación por inactividad

[[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

[ixMike]

¿Qué has hecho, Caral? ¡Has desvirtuado el hilo!

Y encima la gente sin firmar con la nueva norma:

Salu2.

(+1) <-- esta es la nueva norma para respuestas en hilos desvirtuados

[[egostar]]

Empezado por ixMike

¿Qué has hecho, Caral? ¡Has desvirtuado el hilo!

Y encima la gente sin firmar con la nueva norma:

Salu2.

(+1) <-- esta es la nueva norma para respuestas en hilos desvirtuados

Usuarios Activos: 104 (51 Miembros y 53 visitantes.)

[egostar], Administrador, AFilth, alquimista, aog, ayanokoyi, AzidRain, b3nshi, bachasman, BlackDaemon, byfali, [Caral]+, cascarrabias, [cHackAll]*, [D-MO], dtomeysoto, [eduarcol]+, emniram, enecumene, everfbs, FAGD, [fer21unmsm], filigara, georgejg, ixMike, jandok238, JavierLorenz, jhonny+, Jochema, juanblack, Kastor, Lisandro, mikegdl, mjjj, noisesofba, nokia, paladincubano, Paradiso, peccatum, ponchoanz, regisfree, rulo_m, santus, serebi, serg, sofprogrex, superfer17, Tal, ucanneo, xander, XBart

Aprovechen que ahora solo hay 2 moderadores en el foro, si se ponen pesados llevan la de perder

Salud OS

Corrijo: Solo UNO jajaja

[ixMike]

Empezado por egostar

Aprovechen que ahora solo hay 2 moderadores en el foro

Corrijo: Solo UNO jajaja

La corrección no es correcta (¿antinomia?), hay uno que siempre está "invisible".

[ixMike]

Ups, me dejé la firma...

(+2)

[[egostar]]

Empezado por ixMike

La corrección no es correcta (¿antinomia?), hay uno que siempre está "invisible".

Cuentalos amigo ixMike.

Salud OS

[[enecumene]]

Empezado por egostar

Mas sabe el diablo por VIEJO KBRON que por diablo,

Salud OS

Si me mudo a Costa Rica y consigo un trabajo en una compañía cuyo dueño se llama Carlos Al... me devuelvo a mi pais.

[[Caral]]

Hola
Bueno, que os parece asi:

Código Delphi [-]
MessageBox(Handle, 
             PChar('Si El Estupendo Empleado a cargo de este equipo No viene en cinco minutos' + #13#10 + 
                   'Nos veremos en la necesidad de llamarle muy respetuosamente la atención.' + #13#10 + 
                   'Ahh, Si ha tenido algún problema Estomacal, por favor Darse La semana Libre.' + #13#10 + 
                   '                                APLICAN RESTRICCIONES'), 
             PChar('Amigo, Empleado del alma, El Sistema se esta Bloqueando'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);

Saludos