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

Предыдущая тема Следующая тема Перейти вниз

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

Сообщение  РАСТАМАН в 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 := '';

_________________
[Вы должны быть зарегистрированы и подключены, чтобы видеть эту ссылку]
Делаю ФЕЙКИ на заказ
ICQ :24667628
avatar
РАСТАМАН
Бывалый
Бывалый

BFM : 16
Возраст : 18
Откуда : Волжский

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения