Wie erstellt man eine DEMO-Version

[Jens Hartmann]

Hallo zusammen,
habe mal eine Frage zum Thema DEMO-Versionen. Wie würde Ihr eine DEMO-Version erstellen. Mein Gedanke war folgender. Ich implementiere einen Timer, welchen ich im Form.Create starte.
Diese Zeile würde ich in der Standardversion auskommentieren.
Im Ereignis des Timer würde ich eine ShowMessage hinterlegen mit DEMO-Version, und anschließend einen weiteren Timer starten, welcher das Programm nach X Stunden beenden würde.

Delphi-Quellcode:

Form.Create;
begin
TimerDemo.Enabled := true;
End;

TimerDemo…
Begin
ShowMessage(‘Dies ist eine DEMO-Version, das Programm wird in 10 Stunden automatisch beendet‘);
TimerDemo.Enabled := false;
TimerDemoStop.Enabled := true;
End;

TimerDemoStop…
Begin
Close;
End;

Was würdet Ihr dazu sagen. Oder wie würdet Ihr sowas lösen.

Gruß Jens