Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
{ 
 
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.
 

Взято с сайта: https://www.swissdelphicenter.ch