Время НЕактивности приложения

[Little_Roo]

Встала в полный рост проблема :
Есть база на Firebird
Есть клиентские приложения
Надо: - если пользователь после коннекта некое время (к примеру, 15 минут) не производил никаких действий с приложением, как то не редактировал, не удалял записи, не переключал закладки и т.п. - разорвать соединение НЕ закрывая приложение

В Delphi вроде использовалось Application.OnMessages, а Лазаре как?
Ткните носом, желательно с примером.

Я не очень наглею? Просто не попадал в такую ситуацию, так что опыта <= 0
Можно не кроссплатформенно, т.к. все крутится на WinXP

Вот нарыл ... http://www.delphicode.org/delphi/system_idle_time.htm
Ругается на отсутствие TLastInputInfo, GetLastInputInfo

[Xenar]

дубль

[iskander]

http://msdn.microsoft.com/en-us/library/windows/desktop/ms646302(v=vs.85).aspx

[svk12]

Наверно, есть смысл покурить TIdleTimer со страницы палитры компонентов "System".

[Little_Roo]

Наверно, есть смысл покурить TIdleTimer со страницы палитры компонентов "System".

Так как его курить?????????

Добавлено спустя 1 час 7 минут 35 секунд:

дубль

Кого - куда - во что - ?

[WAYFARER]

А если как то так? Например если юзер не жмет клавиши(Не двигает мышь) - значит программа простаивает?

Код: Выделить всё

var  Time: TTime;
...
procedure TForm1.FormShow(Sender: TObject);
begin
   KeyPreview:=True;
   timer1.Enabled:=True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  Time:=Now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if (Now - Time)> StrToTime('00:00:30') then
    begin
    ShowMessage('Ты не работал 30 секунд');
    timer1.Enabled:=False;
    end;
end;



Т.е. при соединении с базой записываем в переменную Time текущее время и запускаем таймер.
Выбираем и обрабатываем ключевые события при которых будет обновляться переменная Time.
Таймер проверяет промежуток между текущим временем и временем последней активности в Time, и когда будет достигнут нужный промежуток времени - рвет соединение и останавливается.

[svk12]

Так как его курить?????????

Попробовать использовать, например...