Lizenzabfrage vor Programmstart

[DeddyH]

Das könnte so aussehen:

Delphi-Quellcode:

program ProjectLizenzTest;

uses
  Forms, Controls,
  UnitMain in 'UnitMain.pas' {FormMain}
  UnitLizenz in 'UnitLizenz.pas' {FormLizenz};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  if NoLicence then
    begin
      FormLizenz:= TFormLizenz.Create(Application);
      try
        if FormLizenz.ShowModal = mrOK then
          begin
            Application.CreateForm(TFormMain, FormMain);
            Application.Run;
          end;
      finally
        FormLizenz.Release;
      end;
    end
  else
    begin
      Application.CreateForm(TFormMain, FormMain);
      Application.Run;
    end;
end.

Könnte man auch eleganter machen, aber so sollte es schon einmal funktionieren.