![]() |
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум | ![]() |
![]() |
Лисоводы всех стран, объединяйтесь !!! |
Время "простоя" программы | |||
---|---|---|---|
chuikin Автор Сообщений: 3 |
Уважаемые коллеги !
Можно ли определить время нахождения программы в ожидании ввода данных с клавиатуры и выполнить какие-то действия по истечении какого-то времени (Причина - юзер "забыл" запущенную программу) ------------------ VFP-6 ![]() |
||
Re: Время "простоя" программы | |||
---|---|---|---|
Петров Андрей Сообщений: 2506 Откуда: Химки (М.О.) |
Таймер с проверкой
1) Положения курсора. 2) Активного окна Windows. 3) Последней нажатой клавиши. 4) Программная блокировка таймера во время длительных операций. ------------------ PS Недочитал тему до конца... ![]() |
||
Re: Время "простоя" программы | |||
---|---|---|---|
GUEST Сообщений: 898 Откуда: Москва |
а зачем стеснять юзера? а мож он в 3-ю смену пашет? ИМХО проще организовать закрытие программы по команде админа, когда надо освободить таблицы. повесить на скрин таймер и смотреть на какуюндь таблу/файл и проч. на сети. как токо "появилось" - "зайдите попозжее" и кансел
![]() ![]() |
||
Re: Время "простоя" программы | |||
---|---|---|---|
Hel!Riser Сообщений: 10448 Откуда: Нижний Новгород |
в старом добром FPD было READ TIMEOUT
![]() Цитата: ------------------ Осторожно - глисты! ![]() |
||
Re: Время "простоя" программы | |||
---|---|---|---|
piva Сообщений: 18600 Откуда: Курган |
Дык вроде уже обсуждалость про DeskTop.FLL в решениях где-то лежит - это когда у Каратаева так и не заработало почему-то
------------------ Часто бывает так, что есть над чем задуматься, а нечем. ![]() |
||
Re: Время "простоя" программы | |||
---|---|---|---|
Alex Roublev Сообщений: 3695 Откуда: Ярославль |
2 chuikin:
Цитата: Один из вариантов такой: Поставь, к примеру, timer с interval=0, а перед inkey() активизируй с interval=1000 (с interval=0 и Timer.Tag="", конечно же, после отработки inkey()). В timer() сделай This.Tag = ALLT(STR(VAL(This.Tag)+1)) и условие, по которому превышение значения Tag объекта выше указанного, то выполняем предписанные операции. В FPD2.6 была функция слежения за буфером клавиатуры CHRSAW(). Может быть и ее как-то прикрутить. Очень давно той функцией не пользовался. ![]() |
||
© 2000-2021 Fox Club  |