(Co-Admin)
Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
Delphi 10.4 Sydney
|
16. Jul 2002, 22: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
|