Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Delphi Создаем Дату Окончания Запуска Программы

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,059
Баллы
155
Возраст
47
Создаем дату окончания запуска программы.

Нажимаешь на форму и создаем процедуру "procedure TForm1.FormCreate" вписываем код:

Код:
procedure TForm1.FormCreate(Sender: TObject);
var
 OldDays:Double;
 Years, Months:Integer;
aDate :TDateTime;
 st:String;
begin
aDate := StrToDate ('28.10.2017'); //дата окончания запуска программы
 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;
 

Mazahaka_lab

Принятый Кодер
Регистрация
25 Янв 2017
Сообщения
42
Баллы
50
Возраст
31
В var объявить забыли
Код:
var
 aDate :TDateTime;
 
Вверх