Главная страница
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.02 c
14-67470
race1
2003-04-06 13:42
2003.04.21
stretch wallpaper


14-67451
Sviat_b
2003-04-04 16:16
2003.04.21
Можно ли безболезненно перейти с Delphi5 на Delphi7 ?


14-67466
asdqwer
2003-04-05 07:45
2003.04.21
Очень интересно.


1-67287
dm37
2003-04-10 08:30
2003.04.21
Динамически создаваемые объекты


14-67443
Новичек
2003-04-05 10:42
2003.04.21
DelphiPlus