Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.21;
Скачать: CL | DM;

Вниз

Как контролировать время ?   Найти похожие ветки 

 
MorfeyCool   (2003-02-20 13:30) [0]

Проблема в следующем, пишу прогу. Программа контролирует работу пользователя за компьютером, отведя ему только то время которое ему необходимо (не путайте, это программа не для компьютерного зала, а для моих детей). Пользователю ничего не мешает изменить время , Как обмануть такого пользователя ?
Заранее спасибо.


 
Anatoly Podgoretsky ©   (2003-02-20 13:37) [1]

Твоя программа должна запускаться первой, лкчше это оформить сервисом


 
Игорь Шевченко ©   (2003-02-20 13:38) [2]

1) Запретить установку времени в Policies.
2) Для детей очень хорошо подходит драйвер ремень.sys (ремень.vxd для Win9x)
3) Запустить при старте сеанса програмку, которая считает тики с момента запуска (по WM_TIMER) и по достижении нужного количества тиков завершает сеанс.
4) CreateWaitableTimer


 
MorfeyCool   (2003-02-20 13:46) [3]

Если можно то чуть проще можно, Игорь. Без драйвера "ремня" как хоть приблизительно это должно выглядеть ?


 
Игорь Шевченко ©   (2003-02-20 13:57) [4]

MorfeyCool (20.02.03 13:46)

При старте программы спросить GetTickCount, запомнить значение.
сказать SetTimer (MyForm.Handle, 1, 1000, nil);

В окне обрабатывать сообщение WM_TIMER, где спрашивать GetTickCount, сравнивать разницу между текущим значением и значением, запомненным при старте. Разница в миллисекундах. Если разница больше заданной, то вызывать ExitWindowsEx




 
Игорь Шевченко ©   (2003-02-20 13:59) [5]

Но ремень или иное словесное внушение, IMHO, надежнее.


 
Anatoly Podgoretsky ©   (2003-02-20 14:07) [6]

сказать SetTimer (MyForm.Handle, 1, сколько нужно и не опаршивать, nil);

Я только не понял речь про интервал или длительность



Страницы: 1 вся ветка

Текущий архив: 2003.04.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-67315
Patrick
2003-04-09 10:02
2003.04.21
Конвертирование Variant в PVariant


7-67578
Avsam
2003-03-02 23:45
2003.04.21
Список дисков


3-67141
Михаил Баринов
2003-04-03 11:16
2003.04.21
Получение значение параметра процедуры (Delphi 5, BDE + Oracle 8)


1-67296
Demon_mhm
2003-04-09 05:51
2003.04.21
помогите с TListView


4-67620
Nemo
2003-02-21 02:06
2003.04.21
Форма, которая всегда сверху .