F�rum Controle de Inatividade #388568

15/10/2010

Delphi

Ol� pessoal, estou precisando fechar o sistema por inatividade( falta de uso ). Alguem tem algum id�ia ? Obrigado.

Marcelo

Curtir t�pico

+ 0

Responder

Posts

15/10/2010

Wilson Junior

O que voc� considera inatividade? Explique melhor.

Responder

Gostei + 0

15/10/2010

Marcelo

Sim, me desculpe por n�o ter me explicado melhor..... O usu�rio abre o sistema e fica sem oper�-lo por varias horas eu queria colocar um time, ap�s 10 minutos sem fazer nada o sistema o mesmo expira e fecha automaticamente. Muito obrigado...

Responder

Gostei + 0

15/10/2010

Emerson Nascimento

creio ser poss�vel usando os eventos OnIdle e OnMessage da aplica��o.

tente colocando estes procedimentos no seu form principal:

procedure TForm14.FormCreate(Sender: TObject);
begin
Application.OnIdle := LigaTimer;
Application.OnMessage := DesligaTimer;
end;

procedure TForm14.LigaTimer(Sender: TObject; var Done: Boolean); // liga o timer ao ficar ocioso
begin
Timer1.Enabled := True;
end;

procedure TForm14.DesligaTimer(var MSG: tagMSG; var Handled: Boolean); // desliga o timer ao entrar em atividade
begin
Timer1.Enabled := False;
end;

procedure TForm14.Timer1Timer(Sender: TObject); // ao executar o timer, depois do tempo informado
begin
// Aqui voc� executa a a��o cab�vel. no meu caso apenas alterei um label.
Label1.Caption := SysUtils.TimeToStr(SysUtils.Now());

end;

no meu exemplo coloquei 10 segundos no timer (timer.interval = 10000).
veja se isso funciona.

Responder

Gostei + 0

15/10/2010

Wilson Junior

Marcelo, n�o precisa se desculpar, apenas solicitei mais esclarecimentos para poder lhe ajudar da melhor forma.

Bom, o Emerson j� postou uma boa solu��o.

Qyualquer coisa � s� perguntar.

Responder

Gostei + 0

17/10/2010

Marcelo

Tem que declarar alguma coisa em USES ??

Responder

Gostei + 0

18/10/2010

Leonardo Xavier

N�o voc� nao precisa declarar nada no exemplo acima voc� apenas coloca um timer em seu formul�rio e coloca o c�digo qua te foi passado. e com certeza seu problema ser� resolvido.

Responder

Gostei + 0