Лимит на время выполнения программы



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{
In der Projekt Datei (.dpr):
In your project's file (.dpr):
}
uses
Forms, Sysutils, Dialogs,
MyProgr in my_prog1.pas {Form1};
const
email = '[email protected]';
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.

Далее: Математика времени »»