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

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

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

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

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Сообщения
1,058
Симпатии
273
Баллы
155
Создаем дату окончания запуска программы.

Нажимаешь на форму и создаем процедуру "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;
 
Вверх Снизу