Segue parte do código que uso
Application.OnMessage := SecuritySystem;
procedure TfrmMain.SecuritySystem(var Msg: TMsg; var Handled: Boolean);
//Função que testa se alguma tecla foi digitada
// ou se o mouse foi movimentado ou pressionado
begin
If ((Msg.message = WM_KEYDOWN) or
(Msg.message = VK_LBUTTON) or
(Msg.message = VK_RBUTTON) or
(Msg.message = VK_MBUTTON) or
(Msg.message = WM_MOUSEMOVE) or
(Msg.message = WM_MENUSELECT))
then begin
tmrSecuritySystem.Enabled := False;
StatusMain.Panels[4].Text := 'Sistema em Uso';
TempoOciso.OciosoInicial := Now;
End Else Begin
tmrSecuritySystem.Enabled := True;
StatusMain.Panels[4].Text := 'Sistema Ocioso';
StatusMain.Panels[5].Text := FormatDateTime('hh:nn:ss',Now -
TempoOciso.OciosoInicial);
//Application.Title := StatusMain.Panels[5].Text;
end;
end;
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Marcos - Digirotas
Informática Enviada em: terça-feira, 9 de agosto de 2005 12:16
Para: [EMAIL PROTECTED]
Assunto: [lista-delphi] Tempo ocioso
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Pedro
Vagner Rossi
Enviada em: terça-feira, 9 de agosto de 2005 14:45
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Detectar qdo a aplicação está SEM uso
Olá a todos.
Gostaria de detectar qdo a aplicação está SEM uso:
Eu explico:
A aplicação está aberta, mas o usuário saiu da mesa, então após um certo tempo
a aplicação requer um novo login ou fecha automaticamente. Estive olhando o
evento application.onidle, mas não consegui muita coisa. Será que alguém já fez
isto?
Atenciosamente.
Pedro Vagner Rossi
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL
PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
