Сделать Ограничение На Использование Программы По Дате.

[Sascha]

Создаем новый проект.Создаем для формы обработчик onCreate, и вписываем туда код:

var
aDate:TDateTime;
OldDays:Double;
Years, Months:Integer;
st:String;
begin
aDate := StrToDate ('15.02.2016'); //дата окончания запуска программы
OldDays := Date - aDate;
Years := Trunc(OldDays / 365.25);
OldDays := (365.25 * Years) - OldDays;

st := 'Даная версия программы предоставлена для ознакомления'+
#13+#10+'                  У вас осталось '+CurrToStr(OldDays)+' дней';
if OldDays < 0 then
   Begin
    st := 'Даная версия програмы прелоставлена для ознакомления'+
    #13+#10+'                  Ваш период ознакомления окончен';
    MessageDlg (st, mtInformation, [mbOK], 0);
    Halt;
   end
else
  MessageDlg (st, mtInformation, [mbOK], 0);
  st := '';
end;

Запускаем проект.

 

[Lomanu4]

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