Limiter l'accès à votre application dans le temps

Dans votre unité projet (.dpr):

uses
Forms, Sysutils, Dialogs,
MyProgr in my_prog1.pas {Form1};

const
email = 'my.mail@provider.xyz';
homepage = 'http://www.myhomepage.com';

// limite l'execution jusqu'au 04/21/2001.

Year = 2001;
Month = 4;
Day = 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.
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/02/2002
VisualisationVu 933 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur