контроль времени

[hamik]

помогите пожалуйста уже всю голову сломал, задача такая нужно не дать пользователю сменить системное время. сразу я хотел чтоб программа брала системное время и продолжала считать сама периодически проверяя совпадает ли ее таймер с системным временем если нет то корректировать, таким образом пользователь поменяв время получит облом так как программа вернет обратно его. но у меня не получается продолжить его, скрипт сбрасывает все по нулям, или мб есть какой другой способ

begin

 
  sec := sec + 1;
  if sec = 60 then
    begin
      min := min + 1;
      sec := 0;
    end;
  if min = 60 then
    begin
      hour := hour + 1;
      min := 0;
    end;
  if hour = 24 then hour := 0;

  if sec < 10 then
    Label3.Caption := '0' + IntToStr(sec)
  else
    Label3.Caption := IntToStr(sec);

  if min < 10 then
    Label2.Caption := '0' + IntToStr(min)
  else
    Label2.Caption := IntToStr(min);

  if hour < 10 then
    Label1.Caption := '0' + IntToStr(hour)
  else
    Label1.Caption := IntToStr(hour);

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

если речь идёт о Windows, то гораздо надежней отобрать у пользователя права на изменение системного времени.
Например, создайте учётную запись с правами "Пользователь", зайдите в систему под этим пользователем и убедитесь, что сама операционнка не даст пользователю изменить системную дату и время!


ну, что же касается вашего подхода, то с таймером Вы по любому выбрали провальный путь...имхо, разумеется...

[hamik]

Сообщение от Serge_Bliznykov

если речь идёт о Windows, то гораздо надежней отобрать у пользователя права на изменение системного времени.
Например, создайте учётную запись с правами "Пользователь", зайдите в систему под этим пользователем и убедитесь, что сама операционнка не даст пользователю изменить системную дату и время!


ну, что же касается вашего подхода, то с таймером Вы по любому выбрали провальный путь...имхо, разумеется...

речь идет именно о Windows, учетка пользователя уже есть с ограничениями но также есть админ учетка, и детишки постоянно под разными предлогами просят вход в админку ну а там сами знаете что происходит. нужно конкретно что-то что не даст откатить время, сам счетчик я скинул выше а вот как в переменые засунуть системное время не знаю

[blackstrip]

Можно, например, получить при старте программы:
а) текущее время (обычное там через Now())
б) количество миллисекунд с момента запуска Windows через winapi-функцию GetTickCount.

И потом когда нужно узнать переводил ли пользователь часы или нет - просто запросить еще раз GetTickCount, и разница между текущим GetTickCount и запомненным на старте GetTickCount - должна быть в точности равна изменению времени на часах с момента старта. В любом случае даже с переведенными часами можно восстановить текущее время, прибавив к стартовому datetime-времени количество прошедших миллисекунд.

А еще можно через компоненту TidNtp запрашивать интернет-время с любого ntp-сервера и синхронизовать комповские часы с этим временем. Тогда хоть обпереводись - сервер-то чётко работает, его не переведешь (правда должен быть инет подключен и сервер не в оффлайне).

[hamik]

Сообщение от blackstrip

Можно, например, получить при старте программы:
а) текущее время (обычное там через Now())
б) количество миллисекунд с момента запуска Windows через winapi-функцию GetTickCount.

И потом когда нужно узнать переводил ли пользователь часы или нет - просто запросить еще раз GetTickCount, и разница между текущим GetTickCount и запомненным на старте GetTickCount - должна быть в точности равна изменению времени на часах с момента старта. В любом случае даже с переведенными часами можно восстановить текущее время, прибавив к стартовому datetime-времени количество прошедших миллисекунд.

А еще можно через компоненту TidNtp запрашивать интернет-время с любого ntp-сервера и синхронизовать комповские часы с этим временем. Тогда хоть обпереводись - сервер-то чётко работает, его не переведешь (правда должен быть инет подключен и сервер не в оффлайне).

мне кажется через GetTickCount будет еще геморойнее, по крайней мере я даже представить не могу как это будет работать а насчет онлайн синхронизации тоже не вариант ведь не стоит забывать что мы вопервых делаем защиту не просто так а от детей а они не совсем глупые и легко догадаются вырубить нет и даже если не догадаются то отсутствие инета им подскажет

[Аватар]

Ну и прогу вашу они еще быстрей раскусят

[ZuBy]

а время биоса не вариант? я не знаю как его достать, но кажется оно не меняется программно, из по ОС

[northener]

Сообщение от ZuBy

а время биоса не вариант? я не знаю как его достать, но кажется оно не меняется программно, из по ОС

А разве БИОС показывает какое-то другое время? Всё время был уверен что RTC в компьютере есть в единственном экземпляре.

[ZuBy]

Сообщение от northener

А разве БИОС показывает какое-то другое время? Всё время был уверен что RTC в компьютере есть в единственном экземпляре.

я ничего особо не знаю о том как устроено время на компе, просто предложил. поправьте если ошибаюсь

[hamik]

Сообщение от ZuBy

а время биоса не вариант? я не знаю как его достать, но кажется оно не меняется программно, из по ОС

время в биосе и время в трее одно и тоже