Скачать: CL | DM;

Как отловить время простоя пользователя?   Найти похожие ветки 

← →
Вован_   (2004-01-25 10:37) [0]

Всем привет! Проблема такая. Как сделать так, чтобы при простое пользователя (не нажимает на клавиши, не двигает мышкой над программой и любым из ее окон, или программа свернута) через например 10 минут программа автоматически закрывалась?

---

← →
Юрий Зотов ©   (2004-01-25 10:51) [1]

type
TForm1 = class(TForm)
Timer1: TTimer; // Interval = 600000
procedure FormCreate((Sender: TObject); // Form1.OnCreate
procedure Timer1Timer(Sender: TObject); // Timer1.OnTimer
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
with Msg do
if (Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST) or
(Message >= WM_MOUSEFIRST) and (Message <= WM_MOUSELAST)
then begin
Timer1.Enabled := False;
Timer1.Enabled := True
end
end;

---

← →
Вован_   (2004-01-25 11:14) [2]

Работает, но не всегда.
Например, если пользователь оставил активным MainMenu на какой-нибудь форме (вошел в подменю и не выбрал элемент, а просто оставил маркер), тогда программа не выгружается.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c