F�rum Quando, com tempo ocioso o sistema faz logoff #330925

09/10/2006

Gostaria de acresecntar nos meus sistemas a op��o de quando o usu�rio n�o utilizar o micro por um certo tempo ele efetuar logoff no meu sistema, (n�o no windows) e ficar na tela de login.
Algu�m sabe como o windows faz para pegar este tempo sem utilizar o micro?
Existe como fazer isto no Delphi? Como?

Emir Neto

Curtir t�pico

+ 0

Responder

Post mais votado

10/10/2006

Coloque um TTimer no seu form principal. No evento do Timer coloque o evento que faz o logoff no seu programa.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // C�digo do Logoff aqui
end;

Declare as duas fun��es abaixo no private do form principal.

private
    procedure AppIdle(Sender: TObject; var Done: Boolean);
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  public

E implemente o c�digo das duas.

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean); begin Timer1.Enabled := True; end; procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); begin Case Msg.message of WM_LBUTTONDOWN,WM_RBUTTONDOWN,WM_KEYDOWN :Timer1.Enabled := False; end; end;

No evento OnCreate do Form, coloque o c�digo abaixo.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
  Application.OnIdle := AppIdle;
end;

A propriedade Interval do TTimer indica quanto tempo (em milisegundos) o programa deve ficar sem uso ou sem receber mensagens do windows para que entre em logoff. Vale lembrar este tem sem uso � o tempo do seu programa e n�o do windows. Ou seja, se o seu programa estiver minimizado e o usu�rio estiver por exemplo usando o Word, o seu programa n�o ir� receber eventos e consequentemente ser� feito loggoff.
Boa sorte...

Rodc

Responder

Gostei + 1

Mais Posts

10/10/2006

Ramms

Amigo vc est� construindo seu sistema de login do 0?

Tente utilizar esse componente http://www.usercontrol.com.br ele tem essa e mtas outras op��es.

[]�s

Responder

Gostei + 0

27/10/2006

Emir Neto

Funcionou perfeitamente. Valeu

Responder

Gostei + 0

27/10/2006

Emir Neto

Funcionou perfeitamente. Valeu

Responder

Gostei + 0