Thema: Delphi 30 Tage version

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#3
  Alt 16. Jul 2002, 22:04
Moin m-werk,

schreib doch bei der Installation einfach mit

Code:
REG.WriteDateTime('Datum',now);
den Installationszeitpunkt weg. Wie Du den Wert nennst spielt ja keine Rolle (muss ja nicht gerade Datum heissen)

Den lässt Du unverändert!

Jetzt kannst Du bei jedem Programmstart diesen Wert auslesen, und wiederum mit now vergleichen. Ist die Differenz grösser als 30, ist die Zeit abgelaufen.

Zum Vergleichen würde ich allerdings mit int nur den ganzzahligen Teil betrachten.

Code:
if (int(now)-int(dtAusgelesen)) > 30 then
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat