Главная страница
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.019 c
1-67339
bkv
2003-04-09 12:54
2003.04.21
Свойство TCanvas.ClipRect


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


1-67382
Xero
2003-04-10 11:23
2003.04.21
текстовой файл


8-67401
Акварелька
2003-01-20 16:58
2003.04.21
свойства экрана


1-67216
J&J
2003-04-05 12:49
2003.04.21
Что делать с нитями??????