Bonjour,
comment protéger une application par date, par ex...
genre: if date.now > strtodate('12.05.2006')...???
J'ai peur d'avoir dit une connerie?
Bonjour,
comment protéger une application par date, par ex...
genre: if date.now > strtodate('12.05.2006')...???
J'ai peur d'avoir dit une connerie?
pour faire simple, je mettrais ce code dans l'unité principale de l'application (pour ce qui est de delphi6)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; //test de la date if Date() > StrToDate('12/05/2006') then begin ShowMessage('votre période d''essai est expirée'); Application.Terminate; end else begin Application.CreateForm(TForm1, Form1); Application.Run; end; end.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager