Делаем огроничание программы на использование
Страница 1 из 1 • Поделиться •
Делаем огроничание программы на использование

- Нажми сюда:
- Код:
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 := '';
_________________
[Вы должны быть зарегистрированы и подключены, чтобы видеть эту ссылку]
Делаю ФЕЙКИ на заказ
ICQ :24667628
РАСТАМАН- Бывалый
- BFM : 16
Возраст : 19
Откуда : Волжский
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения