Приветствую,
Можно, в бета версию 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 Trial.zip 1.55 kb, 1898 downloads since 2014-10-17
Dmitry.