Карта сайтаСсылкиКонтакты

Хостинг


Дата как ограничение работы программы

PDF Печать
Статьи

Вы должны сравнить текущую дату с датой, которую Вы установили для ограничения выполнения программы. Проверять это условие будем в *.dpr файле.


uses
   SysUtils, Dialogs;
   { ... }
 begin
     if Date&ltEncodeDate(2003,3,9) then
     begin
         Application.Initialize;
         Application.CreateForm(TForm1, Form1);
       Application.Run;
     end
     else
         ShowMessage('The available period of 
              this application has already finished');
  end.

 

Добавить комментарий


Защитный код
Обновить