Du kannst es dir ja mal ganz einfach machen.
* beim Starten prüfen, ob in der Registry unter einem bestimmten Pfad ein Wert (Zahl) steht.
* falls nicht wird das Ablaufdatum in die Registry geschrieben
Delphi-Quellcode:
var
ablaufdatum : TDateTime;
rwert : integer;
begin
ablaufdatum := EncodeDate(2007, 10,1);
rwert := Round(ablaufdatum); // in rwert steht jetzt "39356"
// rwert wird jetzt in die Registry geschrieben
...
reg.WriteInteger('MainColor', rwert-44444);
Dadurch, dass die Zahl "39356" in die Registry geschrieben wird, wird die
Bedeutung verschleiert.
Wer möchte kann von Zahl auch noch 44444 abziehen; damit wird die Zahl negativ und
der Zusammenhang mit einem Datum noch stärker verschleiert.
* falls der Wert in der Registry gefunden wird, die Umwandlung einfach umkehren:
ablaufdatum := reg.ReadInteger('MainColor')+44444;