Делаем огроничание программы на использование

РАСТАМАН в 05.10.13 16:39

ограничение программы на использование

Нажми сюда:

Код:: var d, aDate:TDateTime; OldDays:Double; Years, Months:Integer; st:String; begin aDate := StrToDate ('14.04.2007'); //дата окончания запуска программы OldDays := Date - aDate; Years := Trunc(OldDays / 365); OldDays := (365* 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 := '';