Buena tarde.
He estado realizando pruebas y finalmente encontre lo que sucede sin embargo no he podido darle solución.
Sucede que si un usuario deja de usar la aplicación, la deja abierta y enseguida deja de usar
totalmente el equipo de computo durante un tiempo que oscila entre los 5 minutos y 30 minutos
comienzan los bloqueos
hasta que este usuario que dejo de usar el equipo de computo regresa al mismo y cierra la aplicación los demás de desbloquean.
Implemente un Timmer para cerrar la aplicación si dejan de usarlo mas 5 minutos pero no ha funcionado en ciertas maquinas no funciona y los bloqueos siguen
Puse 30000 por que no funcionaba con los 300000 que en teoria le corresponden al timmer.
Código Delphi
[-]
procedure TfrmPrincipal.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
StartTime := GetTickCount();
Done := TRUE;
end;
procedure TfrmPrincipal.Timer2Timer(Sender: TObject);
var FinalTime : Cardinal;
begin
if (dmModulo._UsuarioUR > 0) then
begin
FinalTime:= GetTickCount();
if FinalTime - StartTime > 30000 then
Application.Terminate;
end;
end;
Agradecere su apoyo.
Nuevamente GRacias