Como fechar uma aplicação com 30 minutos de inatividade ?
13/03/2003
0
Caros amigos, preciso que uma aplicação feche após 30 minutos de inatividade em duas situações:
- Quando ninguém mexe no mouse ou teclado por mais de 30 minutos
- Quando ninguém mexe na Aplicação por mais de 30 minutos
- Quando ninguém mexe no mouse ou teclado por mais de 30 minutos
- Quando ninguém mexe na Aplicação por mais de 30 minutos
Anonymous
Curtir tópico
+ 0
Responder
Posts
13/03/2003
Marcelo Saviski
para o mouse faça assim
Insira um Timer
var
tempomouse : integer = 0; // variável global
procedurre TForm1.Timer1Timer(sender : TObject);
var
posicaomouse : tpoint;
begin
timer1.interval := 1000
if mouse.cursorpos = posicaomouse then inc(tempomouse) else tempo mouse = 0;
if tempomouse >= 30 then application.terminate;
posicaomouse = mouse.cursorpos;
end;
Insira um Timer
var
tempomouse : integer = 0; // variável global
procedurre TForm1.Timer1Timer(sender : TObject);
var
posicaomouse : tpoint;
begin
timer1.interval := 1000
if mouse.cursorpos = posicaomouse then inc(tempomouse) else tempo mouse = 0;
if tempomouse >= 30 then application.terminate;
posicaomouse = mouse.cursorpos;
end;
Responder
14/03/2003
Amjorge
Value. Alguém poderia dar uma força para o teclado também. Obrigado.
Responder
Clique aqui para fazer login e interagir na Comunidade :)