Expirar Sesion bajo Delphi
 

Hola, como puedo hacer para que un usuario no deje el programa abierto sin usar durante dos horas y ocupe recursos compartidos. Hay forma de detectar que esa persona no esta haciendo nada dentro del programa y cerrarlo?.

Gracias.

Seguarmente el siguiente enlace, te servirá:

http://www.clubdelphi.com/foros/show...ht=inactividad

Eso está muy bien, pero dos horas es mucho, yo les daría un máximo de tres minutos, ¡qué trabajen! :p :D

// Saludos

Graciasss
 

Gracias a ustedes tema resuelto!!

Se cierra el programa al Instante
 

Los vuelvo a molestar, habia solucionado el problema con la rutina que copie del foro para que una persona no tenga abierto el programa sin usar mas de media hora. pero no se porque!!! en dos maquinas se abre la aplicacion y se cierra al instante mientras en las otras funciona perfecto.
Gracias

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  // interceptamos eventos de teclado y ratón
  if ((Msg.message >= WM_KEYFIRST) AND (Msg.message <= WM_KEYLAST)) OR
     ((Msg.message >= WM_MOUSEFIRST) AND (Msg.message <= WM_MOUSELAST)) then
    UltimoAcceso := GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetTickCount - UltimoAcceso > 1600000 then 
  begin
    zconnection1.Connected := FALSE;
    form1.close;
  end;
end;

Se cierra el programa al instante en algunas pc
 

Sigo viendo no encuentro nada porque en 10 pc funciona perfecto y en esas dos se cierra al instante....

Hace 1 mes habia solucionado el problema con la rutina que copie del foro para que una persona no tenga abierto el programa sin usar mas de media hora. pero no se porque!!! en dos maquinas se abre la aplicacion y se cierra al instante mientras en las otras funciona perfecto.
Gracias


Código Delphi [-]


procedure TForm1.FormCreate(Sender: TObject);
begin

UltimoAcceso := GetTickCount;

end;


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin // interceptamos eventos de teclado y ratón if ((Msg.message >= WM_KEYFIRST) AND (Msg.message <= WM_KEYLAST)) OR ((Msg.message >= WM_MOUSEFIRST) AND (Msg.message <= WM_MOUSELAST)) then UltimoAcceso := GetTickCount;end;procedure TForm1.Timer1Timer(Sender: TObject);beginif GetTickCount - UltimoAcceso > 1600000 then begin zconnection1.Connected := FALSE; form1.close; end;end;