Lizenzabfrage vor Programmstart

[DeddyH]

Achso. Dann schau noch mal in die *.dpr, da fehlt nämlich etwas.

Zitat:

Delphi-Quellcode:

    if Lizenzkey = 'Lizenznummer: Demoversion' then
       if Serienkey = 'Seriennummer: Demo-0001-2008' then
         begin
           TFLizenz := TTFLizenz.Create(Application);
             if TFLizenz.ShowModal = mrOK then
               begin
                 Application.CreateForm(TForm1, Form1);
                 Form1.Lizenznummer := True;
                 Form1.Seriennummer := True;
                 Form1.Visible := False;
                 Form1.Visible := True;
                 Application.Run;
               end
             else
               begin
                 Application.CreateForm(TForm1, Form1);
                 Form1.Lizenznummer := False;
                 Form1.Seriennummer := False;
                 Form1.Visible := False;
                 Form1.Visible := True;
                 Application.Run;
             end;
         end
         else
         //hier fehlt ein begin
         Application.CreateForm(TForm1, Form1);
         Form1.Lizenznummer := False;
         Form1.Seriennummer := False;
         Form1.Visible := False;
         Form1.Visible := True;
         Application.Run;
         //und hier ein end;

[Jens Hartmann]

Das habe ich gemacht, aber bei mir bringt das nichts.

Der Wert von Lizenznummer, wird in der .dpr auch auf true gesetzt, aber wenn ich die Auswertung in OnShow wieder integriere, nimmt er Sie nicht an.

Wenn ich Breakpoints hier:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if Lizenznummer = true then
  begin
  LaKunde.Caption := 'Hallo';
end;
end;

und hier:

Delphi-Quellcode:

begin
  TFLizenz := TTFLizenz.Create(Application);
     if TFLizenz.ShowModal = mrOK then
         begin
            Application.CreateForm(TForm1, Form1);
            Form1.Lizenznummer := True;
            Form1.Seriennummer := True;
            //Form1.Visible := False;
            //Form1.Visible := True;
            Application.Run;
          end
        else
          begin

sieht man auch das er erst OnShow ausführt und dann erst True setzt.

[DeddyH]

Dann mach es doch so wie ganz weit vorne schon einmal vorgeschlagen wurde:
im OnCreate des MainForms Lizenz prüfen und Lizenzformular ggf. modal aufrufen. Das sollte dann aber funktionieren.

[Jens Hartmann]

Dann muss ich das wohl so machen,
Also Funktioniert das Projekt von mir, bei dir aber auch nicht.

Naja, trotzdem vielen Dank für deine ganzen Bemühungen.
:thumb: :thumb: :thumb: :thumb: :thumb: :thumb:

MFG

Jens

[DeddyH]

Also, wenn ich im Kompilat auf DEMO klicke, sehe ich im Mainform eine Demo-Lizenz. Klicke ich auf OK, steht unter Kundendaten nix. Sollte doch so stimmen, oder?

[Jens Hartmann]

Das müsste daran liegen, weil du ja die Variante haben müsstest mit der Anweisung Form.Visible True und False

schau mal nach

Delphi-Quellcode:

               begin
                 Application.CreateForm(TForm1, Form1);
                 Form1.Lizenznummer := True;
                 Form1.Seriennummer := True;
                 Form1.Visible := False;
                 Form1.Visible := True;
                 Application.Run;
               end