Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизКак отловить время простоя пользователя? Найти похожие ветки
← →
Вован_ (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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.03 c