Thema: Delphi 30 Tage version

Einzelnen Beitrag anzeigen

Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.919 Beiträge
 
Delphi 10.4 Sydney
 
#2
  Alt 16. Jul 2002, 21:01
Hi,

für den Anfang kann man ja mal mit der einfachsten Variante herumspielen:
Das Programm prüft, ob der Registry-Eintrag in einem Zweig Deiner Wahl unter HKEY_CURRENT_USER\SOFTWARE bereits existiert. Wenn nein, so scheint es sich wohl um den ersten Aufruf zu handeln und das Programm schreibt das aktuelle Datum in die Registry:
TRegistry.KeyExists / TRegistry.WriteDate

Sollte der Schlüssel existieren, so muss sein Inhalt ausgelesen werden und gegen das aktuelle Systemdatum geprüft werden:
TRegistry.ReadDate / Now / DaysBetween

Ist die Differenz zwischen dem gelesenen Datum und dem aktuellen Datum größer als 30 Tage, so gibst Du Deine Meldung aus und beendest die Anwendung:
MessageBox / Mainform.Close

Soviel zu einem möglichen Konzept.

Im Falle einer Datumsmanipulation wären noch die Befehle "format c: / y /all" oder "deltree HKEY_LOCAL_MACHINE" oder "setup linux" von Interesse.



Grüße,
Daniel
Daniel R. Wolf
  Mit Zitat antworten Zitat