Logoff Automatico - 5� Tentativa

Question

Tenho um aplicativo em IB6. Cadastro uma senha para cada usu�rio. Pretendo fazer com q ao passar um determinado tempo(ex. 5 a 10 minutos) se o usuario NAO utilizar o sistema o proprio fara logoff auto...

Wagnerpb · Answer

d� uma olhada no c�digo abaixo, � so uma id�ia...

S�o utilizados dois componentes RXTIMER
.
.
.
.
implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If WTravaSistema = True then
begin
WTravaSistema:=False;
RxTimerEvent2Timer(Sender);
end
else
WTravaSistema:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WTravaSistema:=False;
end;

procedure TForm1.RxTimerEvent1Timer(Sender: TObject);
begin
WTravaSistema:=True;
end;

procedure TForm1.RxTimerEvent2Timer(Sender: TObject);
begin
If WTravaSistema = True then
Label1.Caption:=�Sistema travado!!!�
else
Label1.Caption:=�Sistema destravado!!!�;
end;

end.

Espero ter ajudado...

E_gama · Answer

Uma alternativa seria:Primeiro: TODOS os seus formul�rios devem saber que o tempo determinado se esgotou, e devem fechar automaticamente;Uma solu��o para isso, seria vc criar nos formul�rios uma procedure que responda a �mensagens� enviadas a ele. Ao receber a mensagem, o formul�rio faz tudo que � necess�rio para fechar-se autom�ticamente para evitar qualquer problema...Segundo: No seu formul�rio principal, vc tem que colocar um componente TTimer para temporizar o tempo desejado para que seja feito o �logoff�.Quando o tempo estourar, ele verifica quais formul�rios est�o abertos, e envia a eles a mensagem de �fechamento�.Preparei um pequeno exemplo, pegue-o no link abaixo:[url]www.salesiano.com.br/egama/ClubeDelphi3.zip[/url]Tem que pensar ainda em como detectar quando o usu�rio est� ou n�o utilizando o sistema. Vou pensar em algo aqui e qq coisa lhe contacto......

Theuscr · Answer

O c�digo pra executar o Logoff do Windows pode ser achado na API do Windosw, mas j� facilitarei seu trabalho:ExitWindows(EWX_LOGOFF,EW_RESTARTWINDOWS);F�cil, neh??? :roll:...

Motta · Answer

De uma olhada no help em TApplication.Idle , pode te ajudar...

E_gama · Answer

Utilizando a dica do amigo Motta, alterei o exemplo anterior
Baixe-o o arquivo que enviei no post anterior novamente para testar...

Fa�a o seguinte teste:

Quando vc executar a aplica��o, ele vai abri um Form com um Botao e uma Caixa de Texto.
O Form tambem contem um Timer de 5 segundos...

ao clicar no botao, ira abrir um novo form em branco.
Se vc ficar esperando ele vai dar uma mensagem para fechar em 5 segundos (vc � claro pode configurar isso), mas se depois que clicar no botao, vc ficar digitando algo na caixa de texto (sem fechar o novo form que abriu), a aplica��o seguira normalmente, mas se vc ficar mais do que 5 segundos sem digitar nada, a mensagem para fechar ser� mostrada novamente...

F�rum Logoff Automatico - 5� Tentativa #168660