Лимит на время выполнения программыDelphi , Синтаксис , Дата и ВремяЛимит на время выполнения программы
Оформил: DeeCo { In der Projekt Datei (.dpr): In your project's file (.dpr): } uses Forms, Sysutils, Dialogs, MyProgr in my_prog1.pas {Form1}; const email = 'my.mail@provider.xyz'; homepage = 'http://www.myhomepage.com'; // Limit the execution time to 04/21/2003. // Gultigkeit auf 21. April 2003 begrenzen. YearExp = 2003; MonthExp = 4; DayExp = 21; function CheckDate(y, m, d: Integer): Boolean; begin Result := True; if (Date > EncodeDate(y, m, d)) then begin ShowMessage('End of usage exceeded. Download a new'+ 'version at' + ^j + homepage+ ^j + ' or contact: ' + email); Result := False; // halt; end; end; {$R *.RES} begin if CheckDate(YearExp, MonthExp, DayExp) then begin Application.Initialize; Application.Title := 'Some Title'; Application.CreateForm(TForm1, Form1); Application.Run; end; end. Статья описывает пример программы на языке Pascal, которая ограничивает выполнение своей работы по дате, указанной константами YearExp, MonthExp и DayExp. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |