Nous constatons souvent que de nombreuses versions d'essai de logiciels téléchargés en ligne ont des limites de durée d'utilisation. D'un point de vue commercial, il s'agit également d'une mesure visant à protéger les avantages du logiciel. Elle permet aux utilisateurs de l'essayer gratuitement pendant un certain temps s'ils sont satisfaits. ils peuvent acheter des logiciels commerciaux. L'exemple de fonction de code décrit dans cet article explique comment ajouter une fonction de limite de temps au programme écrit en Delphi. Le délai par défaut est ici de 30 jours.
Le code principal est le suivant :
unit Unit1;interfaceutilise Windows, Messages, SysUtils, Classes, Graphiques, Contrôles, Formulaires, Registre, Boîtes de dialogue;type TForm1 = class(TForm) procédure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;var Form1 : TForm1;procédure d'implémentation{$R *.DFM} TForm1.FormCreate(Sender: TObject);var registerTemp : TRegistry; curDate : TDateTime;begin registerTemp := TRegistry.Create; with registerTemp do begin RootKey := HKEY_LOCAL_MACHINE; //Déterminez s'il faut exécuter le programme pour la première fois si OpenKey( 'Software/MySoftware', True) puis commencez if ReadBool('Runned') then //Ce n'est pas la première fois que vous l'exécutez, commencez curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then start //L'heure actuelle du système dépasse la période d'utilisation ShowMessage('La version d'essai a expiré'); begin DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date end; end else start //Exécuter le programme pour la première fois DeleteKey('Runned'); WriteBool('Runned',True); //Définit la période d'essai sur 30 jours WriteInteger('Duration',30); //Écrit la durée d'exécution actuelle WriteTime('LastRunTime',Date); 'Échec !'); fin; CloseKey; fin;fin;fin.