Форум: "Основная";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Вниз

Ожидание в 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 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c