Работа с датой

[Aleksandr]

Написал программу и на эту программу поставил защиту (проверка ключа) т.е без ключа программа расчитана на 30 запусков, а теперь я хочу сделать следующее: при первом запуске считывается дата и записывается например в ini файл. Затем при следующем запуске эта дата сравнивается с системной и если она больше 30 дней то программа вырубается. Теперь вопрос как осуществить саму математику с датой, т.е. (дата системная - дата начальная).
Заранее благодарен. С уважением Aleksandr!

[_SERGEYX_]

Записываем дату в ini-файл при первом запуске
Uses Inifiles;

var INI: TINIFile;
begin
   INI := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
   INI.WriteDate('Options', 'data_begin', date);
   INI.free
end;

Проверяем даты

var data_system, data_begin: TDate;
   INI: TINIFile;
begin
   INI := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
   data_system := Date;
   data_begin := INI.ReadDate('Options', 'data_begin', 0);
   INI.free;
   if (data_begin = 0) or (data_begin + 30 < data_system) then
   begin
      MessageDlg('Гуд бай', mtInformation, [mbOk], 0);
      hult;
   end;
end;

P.S. Но такая защита совсем дерьмовая. Не сломает только ленивый....

[Aleksandr]

Спасибо огромное. Мне вообще не нужен был код про запись в ini файл, а только работа с датами. Спасибо еще раз все работает. Я немножко изменил твой код

var data_system, data_begin: TDate;
  INI: TINIFile;
begin
 INI := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
  data_system := Date;
  data_begin := INI.ReadDate('Options', 'data_begin', date);
 
 
  if data_system-data_begin  > 30 then
  begin
     MessageDlg('Гудбай', mtInformation, [mbOk], 0);
     INI.free;
     halt;
  end;

и запись в ini файл

var INI: TINIFile;
data_begin: TDate;
begin
INI := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
data_begin := INI.ReadDate('Options', 'data_begin', 0);
if data_begin = 0   then
begin INI := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
  INI.WriteDate('Options', 'data_begin', date);
  INI.free
  end
  else INI.Free;

[JTG]

Страшно надёжный триал

[Трофимов Александр]

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

[Aleksandr]

Я использовал несколько способов. Вчастности и проверку серийного номера диска

[mutabor]

Да, это очень трудно раз в месяц в ini файле дату поменять,
который по умолчанию блокнотом открывается
Так все таки

30 запусков

или 30 дней? Если запусков то и дата не нужна.

[_SERGEYX_]

Софт для юридических лиц я защищаю так:
Вместе с программой отдаю заказчику ключ, который сгенерирован по его УНН (учетный номер налогоплательщика), который не может быть изменен. Ведь в документах при печати ему нужно, чтобы там был именно его УНН, а он берется из настроек программы. При клике на кнопку "Печать" вновь генерирую ключ и сравниваю... Если не совпали - в отчете поверх текста большими буквами пишу "Пробная версия". Действует безотказно. А хороших алгоритмов для генерации сейчас полно.

[Aleksandr]

Делал и на 30 запусков

[mutabor]

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

И еще совет, уже серьезно. Делай защиту, чтобы при повторной установке опять триал не включался.