Ожидание в 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]

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

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