Wir sehen oft, dass viele Testversionen online heruntergeladener Software zeitlich begrenzt sind. Aus kommerzieller Sicht ist dies auch eine Maßnahme zum Schutz der Softwarevorteile. Sie ermöglicht es Benutzern, sie für einen bestimmten Zeitraum kostenlos zu testen. Sie können kommerzielle Software erwerben. Die in diesem Artikel beschriebene Beispielcodefunktion zeigt, wie man dem in Delphi geschriebenen Programm eine Zeitlimitfunktion hinzufügt. Das Standardzeitlimit beträgt hier 30 Tage.
Der Hauptcode lautet wie folgt:
Unit Unit1;Schnittstellen: Windows, Nachrichten, SysUtils, Klassen, Grafiken, Steuerelemente, Formulare, Registrierung, Dialoge;Typ TForm1 = Klasse(TForm) Prozedur FormCreate(Sender: TObject); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;Implementierung{$R *.DFM}Prozedur TForm1.FormCreate(Sender: TObject);var registerTemp : TDateTime;begin registerTemp := TRegistry.Create; with registerTemp do begin RootKey := HKEY_LOCAL_MACHINE; //Bestimmen Sie, ob das Programm zum ersten Mal ausgeführt werden soll ( 'Software/MySoftware' ,True) then begin if ReadBool('Runned') then //Dies ist nicht das erste Mal, dass begin ausgeführt wird curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then begin //Die aktuelle Systemzeit überschreitet den Nutzungszeitraum ShowMessage('Testversion ist abgelaufen'); exit; begin DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date end else begin; WriteBool('Runned',True); //Setzen Sie den Testzeitraum auf 30 Tage ein. WriteInteger('Duration',30); //Schreiben Sie die aktuelle Laufzeit. WriteTime('LastRunTime',Date); 'Fehlgeschlagen!'); end; end;end;end.