usu�rio ausente?

Question

pessoal existe alguma forma de saber quando o usu�rio est� ausente?

explicando melhor .....

o sistema est� aberto e por algum motivo a pessoa teve que sair e deixou ativo. eu queria gerar uma a��o assim que o programa identificar que ningu�m est� usando o computador.

Emerson Nascimento · Answer

voc� precisa identificar se o computador est� uso, ou se o seu sistema est� em uso?...

Crcam · Answer

na verdade se o computador est� em uso pois quero proteger o sistema....

Okama · Answer

Existe a prote��o de tela do windows com senha, resolve ?...

Crcam · Answer

n�o ...eu quero gewrar uma a��o de logaut no meu sistema caso o usu�rio abandone o computaro ou eu reinicio ou eu fecho software .minha preocupa��o � so com meu programa.........

Romulocpd · Answer

Realmente isso seria uma boa mesmo! Se o usu�rio sair da maquina o sistema poderia tipo ficar bloqueado.

Naquele componente ApplicationEvents tem acho que um OnIdle por�m meu caso:

Eu tenho um projeto todo modular onde praticamente cada formul�rio do meu programa pertence a um pacote especifico. Isso � apra facilitar a manuten��o (e realmente � mt melhor). O ApplicationEventos, com evento OnIdle, ir� pegar tamb�m o tempo ocioso dos fomrularios no pacote?

Aqui mesmo na empresa � um problema s�rio, o cara vai no banheiro e qd ve tem gente na maquina. Mesmo que a regra geral seja bloquear a esta��o (esta��es WinXP ou Win2kProf) tem sempre um cabe�udo que esquece.

Valeu!

Crcam · Answer

ent�o como ficaria p/ gerar a a��o? o meu n�o est� em modulos o evento ficaria no form principal ......

Romulocpd · Answer

Bom, eu nunca usei este componente, s� sei de sua existencia.  Tem que rodar na net atr�s do funcioamento dele, ou no proprio help do Delphi pois ele � um componente nativo....

Crcam · Answer

ai complicou pois j� rodei atraz disso antes de recorrer no clube...

Crcam · Answer

pessoal n�o era bem isso que eu tinha em mente mas o resultado foi o esperado

vou diexar aqui p/ quem tiver com o mesmo problema de usu�rio relaxado....

NO FORMUL�RIO PRINCIPAL DE SUA APLICA��O, AJUSTE A PROPRIEDADE KeyPreview PARA true,

INSIRA O COMPONENTE TTimer
E AJUSTE O INTERVALO PARA 1000 MILESEGUNDOS

---------------------------------------------

private
procedure ResetTimeOut;

public
{ Public declarations }
end;

------------------------------------

implementation

const

maxTimeOutValue = 300; // 300 segundos = � 5 minutos
var TimeOut : integer; // ser� incrementando pelo TTimer

{$R *.dfm}

procedure TForm1.ResetTimeOut;
begin
TimeOut := 0;
end;

-----------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
begin
timeOut:= 0;
end;

-------------------------------------------------------

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(TimeOut);
if TimeOut = MaxTimeOutValue then
begin
Timer1.enabled:= false;
close;
end;
end;

-------------------------------------------------------------

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ResetTimeOut;
end;

Romulocpd · Answer

Ol�,Foi uma solu��o mesmo, mas voc� usou o evento OnIdle n�?  Pois n�o encontrei em seu c�digo onde ele come�aria a contar o tempo ocioso.  Tipo, seo cara vai e digita algo ent�o ele recome�a a contar.Valeu!...

Crcam · Answer

na verdade o que fiz � toda vez que a aplica��o for clicada ele reinicia o contador do timer ou seja ele acionaprocedure TForm1.ResetTimeOut;...

Jackson Gomes · Answer

Pessoal:O componente para controle de acesso que comercializo tem essa fun��o de TimeOut. Quem tiver interesse, pode dar uma olhadinha na p�gina....