Форум: "Основная";
Текущий архив: 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.011 c