Lizenzabfrage vor Programmstart

[MuTzE.Y85]

variable bei public reinschreiben

EDIT:

Weisste wie ich meine?

[Jens Hartmann]

Ja gute Idee, werde ich heute Abend ausprobieren,

Gruß Jens

[Jens Hartmann]

Hallo nochmal zusammen,

Habe jetzt alles so gemacht und die Lizezabfrage soweit am laufen.

Sie Quellcode:

Delphi-Quellcode:

    Application.Initialize;
    if Lizenzkey = 'Lizenznummer: Demoversion' then
    begin
      TFLizenz := TTFLizenz.Create(Application);
        if TFLizenz.ShowModal = mrOK then
          begin
            Form1.Lizenznummer := True;
            Application.CreateForm(TForm1, Form1);
            Application.Run;
          end
        else
          begin
            if TFLizenz.ShowModal = mrCancel then
            Form1.Lizenznummer := False;
            Application.CreateForm(TForm1, Form1);
            Application.Run;
          end;
        end;
end.

Leider wird mir bei dem Zuweisen der Variablen immer noch der Fehler (siehe Anhang) beim Compelieren gemeldet.

Woran könnte das noch liegen?

MFG Jens

[DeddyH]

Und wenn Du die Zeilen mit "Form1" mal auskommentierst?

[Jens Hartmann]

Wenn ich die Zeile auskommentiere, ist der Fehler nicht mehr da und mein Programm läuft.
Allerdings, hat meine Programm ja jetzt leider den Übergabe Wert das eine gültige Lizenz vorhanden ist nicht.

MFG

Jens

[DeddyH]

Mein obiger Beispielcode war so gedacht, dass das Lizenzformular nur dann mrOK zurückgibt, wenn die Lizenznummer stimmt. Ansonsten bräuchtest Du z.B. eine globale Variable (*pfui*), in der Du Dir merkst, ob die Lizenz gilt.

[Jens Hartmann]

Das mache ich auch so, aber entweder verstehe ich noch irgendwas nicht oder so.

Wenn ich mrOK zurückgebe, wir meine Programm gestartet.
Wenn nicht muss ich doch irgendwie das Programm als DEMO starten.

Und das habe ich halt versucht über mrCancel zu lösen.

:gruebel: :gruebel:

[DeddyH]

Ach ich Knallkopp :wall:. Tausch einfach mal die Zeilen mit Application.CreateForm... und der Zuweisung aus, dann sollte das auch gehen.

[Jens Hartmann]

Ja, das Funtz soweit, nur das Problem und das habe ich leider vermutet. Das Form Create ist ja dann schon durchgeführt und somit kann ich darin natürlich nicht mehr nach dem Rückgabewert fragen.

Habe das jetzt schon mit Onshow Probiert, Funktioniert aber auch nicht

:gruebel:

[DeddyH]

Du hast im OnCreate von Form1 bereits eine Abfrage auf die Lizenz? Das sollte aber doch gehen, wenn Du diese ins OnShow verlagerst.