Como fechar uma aplicação com 30 minutos de inatividade ?
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
Curtidas 0
Respostas
Marcelo Saviski
13/03/2003
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;
GOSTEI 0
Amjorge
13/03/2003
Value. Alguém poderia dar uma força para o teclado também. Obrigado.
GOSTEI 0