Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-91162
SiJack
2003-04-09 11:54
2003.04.28
Экспорт BD


1-91334
anbezr
2003-04-15 10:54
2003.04.28
Как правильно прервать создание компонента


4-91603
smolin
2003-02-28 10:04
2003.04.28
Частота обновления экрана


14-91472
Плохой человек
2003-04-09 23:57
2003.04.28
Чем работать с палитрами.


14-91481
Supreme 2
2003-04-09 17:50
2003.04.28
Хорошо ли быть фанатом?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский