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;