Делаем огроничание программы на использование
Страница 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 := '';
РАСТАМАН- Бывалый
- BFM : 16
Возраст : 25
Откуда : Волжский
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
|
|