Topic: Триал счетчик или ограничение на количество записей

День добрый. Как можно реализовать скажем ограничение на использование программы не более 3х месяцев, или же на количество записей (понимаю что по записям это больше по mysql по самой базе). Как то можно через скрипт реализовать?

Re: Триал счетчик или ограничение на количество записей

Приветствую,


Можно, в бета версию 1.46 добавил возможность писать в системный реестр, где и можно хранить дату первого запуска, и затем сравнить ее с текущей.
Скачайте бета версию:
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0


Код можно поместить в событие OnShow главной формы:

procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
   iDays: integer;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;
     reg.OpenKey('software\MyVisualDatabaseTrial',true);
     if not reg.ValueExists('StartDate') then reg.WriteDate('StartDate', Now+10); // trial period is 10 days

     iDays := Trunc(reg.ReadDate('StartDate')) - Trunc(Now); // time left days

     reg.CloseKey;
     reg.Free;

     if iDays < 1 then
     begin
          ShowMessage('Trial period is over.');
          Form1.Close;
     end;

     ShowMessage('Demo version. Time left: ' + IntToStr(iDays));
end;

также можете скачать готовый проект с данной реализацией

Post's attachments

Attachment icon Trial.zip 1.55 kb, 1898 downloads since 2014-10-17 

Dmitry.

Re: Триал счетчик или ограничение на количество записей

Ух ты Здорово!!! Спасибо Дмитрий!