Menu

Temps d'usage d'une application [Résolu]

jaakan 17 Messages postés mardi 19 mai 2015Date d'inscription 7 janvier 2018 Dernière intervention - 13 mai 2017 à 21:50 - Dernière réponse :  jaakan
- 30 sept. 2017 à 15:14
bonsoir les amis,je suis en cours de dévelloppement d'une application et je voudrais présenter une version démo de l'application qui sera utilisé que pendants 2 mois.je voudrais moi même paraméter la durée d'usage de l'application mais je ne sais comment faire tout cela.Merci pour votre aide
Afficher la suite 

7 réponses

Répondre au sujet
0
Utile
j'atends toujours votre aide.Merci
Commenter la réponse de jaakan
jlaurent33 8 Messages postés lundi 4 septembre 2017Date d'inscription 5 septembre 2017 Dernière intervention - Modifié par FeLynX le 4/09/2017 à 22:17
0
Utile
Une genre de protection en somme ?
Commenter la réponse de jlaurent33
jaakan 17 Messages postés mardi 19 mai 2015Date d'inscription 7 janvier 2018 Dernière intervention - 25 sept. 2017 à 15:58
0
Utile
Oui tout comme une license de produit
Commenter la réponse de jaakan
metarefsalem 91 Messages postés vendredi 20 mai 2005Date d'inscription 13 avril 2018 Dernière intervention - Modifié par metarefsalem le 25/09/2017 à 23:07
0
Utile
3
Bonjour : De nos jours, déplomber une protection logiciel est devenu un jeu de chrono, même chez les amateurs de l'ingénierie inverse, certainement, tu dois commencer par faire simple et méditer sur techniques complexes (cryptage maison basé sur des identifiants matériels des machines hautes).

Pour faire simple :

<code>implementation
uses DateUtils;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var Debut, Present : TDateTime;
Jours_Passes : Integer;

begin

Debut := StrToDateTime('01/09/2017'); {La date de l'installation, tu peux la récupérer à l'exécution et l'enregistrer dans un fichier, pour la première fois si le fichier n'existe pas }
Present := TDateTime(Now); //La date en ce moment
Jours_Passes := DaysBetween(Present, Debut);
ShowMessage(IntToStr(Jours_Passes));
if Jours_Passes > 60 then { Action à faire } Application.Terminate;

end;
</code>
jaakan 17 Messages postés mardi 19 mai 2015Date d'inscription 7 janvier 2018 Dernière intervention - 26 sept. 2017 à 11:17
Merci beaucoup. Et puis je savoir comment on récupère la date de l'installation et l'enregistrer dans un fichier?
Play92 > jaakan 17 Messages postés mardi 19 mai 2015Date d'inscription 7 janvier 2018 Dernière intervention - 30 sept. 2017 à 14:22
Bonjour,
Récupérer la date d'installation et l'enregistrer dans un fichier avec delphi est simple
voici comment faire:
var f: TextFile;
begin
if fileExists('C:\Users\'+GetEnvironmentVariable('USERNAME')+'\Desktop\date.txt') then
else begin
AssignFile(f, 'C:\Users\'+GetEnvironmentVariable('USERNAME')+'\Desktop\date.txt');
Rewrite(f);
Writeln(f, DateToStr(date));
CloseFile(f);
end;
end;
Vous mettez ça dans OnActivate de votre Form par exemple.

Mais comme ça été dit plus haut c'est une méthode facilement contournable.

Dans votre cas le mieux est de passé par le registre
regarde ici
http://badrou.developpez.com/delphi/trial/
Commenter la réponse de metarefsalem