Hallo alle zusammen,
vor dem Start der Anwendung möchte ich eine "Register-Form" (frmMain) vorschalten, die prüft, ob die Software bereits registriert ist und falls nicht, wie der aktuelle Status der Demophase ist. Je nach Stand der Demo-Version bzw. Eingabe der "Lizenz-Daten" wird die Anwendung gestartet oder eben nicht.
Die Register-Form übergibt:
Delphi-Quellcode:
ModalResult := mrOK; // starte testphase
bzw.
ModalResult := mrAbort; // demo abgelaufen oder falsche lizenzdaten
Das Programm:
Delphi-Quellcode:
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'mein test';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TfrmMain, frmMain);
frmMain.ShowModal;
if frmMain.ModalResult = mrOk then begin
frmMain.Close;
Application.Run;
end else begin
Application.MessageBox('You are not authorized to use the application.');
end;
Soweit funktioniert es auch wie gewünscht.
Mein Problem ist folgendens:
Wenn nun bereits die korrekten Lizenzinformationen in der Registry gespeichert worden, möchte ich die "Register-Form" nicht mehr anzeigen lassen, sondern sofort die Anwendung starten.
Wie bekomme ich das hin?
Schönen 1. Mai und beste Grüße
Susanne