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

Ожидание в Delphi   Найти похожие ветки 

← →
Kedis ©   (2003-04-17 12:29) [0]

Одним словом надо сделать так чтобы, если человек отошел от компьютера, и после 5 минут моя прога закрывалась сама

---

← →
Михайлов Антон ©   (2003-04-17 12:41) [1]

А как ты хочешь проверять отошёл он или нет?
Можно по позиции мышки... если в течение 5 менут позиция не изменилась, то закрываем прогу...
В общем для таймера интервал=1000


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (x=mouse.CursorPos.X)and(y=mouse.CursorPos.Y)then
count:=count+1
else
count:=0;

if count>5*60 then
close;

x:=mouse.CursorPos.X;
y:=mouse.CursorPos.Y;
end;

=============================================
Незнаю на сколько всё рабочее... это я писал для медиаплеера, чтобы курсор мыши исчезал после 3х секунд... переделывал на ходу...
Не забудь описать x,y,count:integer

---

← →
Skier ©   (2003-04-17 12:44) [2]

TApplication.OnIdle + TTimer

---

← →
Silver_ ©   (2003-04-17 14:39) [3]

> Skier © (17.04.03 12:44)


+

Есть такое ApplicationEvents а тама свойство OnIdle вот тама и делай усе че нада.

---

← →
Mike Kouzmine ©   (2003-04-17 14:56) [4]

А если пользователь задумался или по телефону говорит?
Нужна видеокамера (лучше три) и модуль распознавания объектов.

---

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

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



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