Lizenzabfrage vor Programmstart

[Jens Hartmann]

So leider ist das so eine Fehlanzeige, im OnShow kann man die Eigenschaft von Visible nicht verändern und im Oncreate kommt es zu der oben genannten Fehlerursache.

Habe leider momentan keinerlei Ideen.

Und das mit Larsi immer noch nicht verstanden

MFG

Jens

[DeddyH]

Zitat von Jens Hartmann:

...und im Oncreate kommt es zu der oben genannten Fehlerursache.

Hab ich was verpasst? Was meinst Du?

[Jens Hartmann]

Ich hoffe nicht das du was verpasst hast.

Ich habe deine Aussage mit Larsi nicht verstanden.

Wer oder was ist das.

Und wenn die andere Möglichkeit Funktionieren sollte, bekomme ich sie nicht hin.

MFG

Jens

[DeddyH]

Larsi hat Dir in #3 einen Vorschlag gemacht. Da ich weiß, dass das so nicht geht, habe ich ihn gefragt, ob er das schon einmal versucht hat.

[lbccaleb]

Zitat von Jens Hartmann:

Ich habe deine Aussage mit Larsi nicht verstanden.

Wer oder was ist das.

Das ist einer der Nutzer die oebn gepostet haben!!

[Jens Hartmann]

Manchmal ist es besser man steht mal auf und geht an die frische Luft.
Man was habe ich mir gerade auf der Leitung gestanden.

Aber dafür habe ich ja wenigsten selber gemerkt das es nicht geht.

Hat denn vieleicht jemand einen Ansatz für mich.

[haentschman]

ich hätte da noch einen anderen Vorschlag... 8)

- eine Lizenzdatei mit den Verschlüsselten Informationen

- da kann sich der User das Eintippen schenken
- keine zusätzliche Form
- keine Datei ---> Demostatus
- Datei vorhanden - Informationen können entschlüsselt werden ---> entsprechende Version
- Datei vorhanden - Informationen können nicht entschlüsselt werden ---> Demostatus

...nur so als Idee

[Douglas Quintaine]

Zitat von Jens Hartmann:

Hat denn vieleicht jemand einen Ansatz für mich.

Habe ich bereits geposted. Vielleicht wäre Lesen sinnvoll.

[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.

[Jens Hartmann]

Hallo nochmal,
Also habe jetzt gebastelt und alles soweit realisiert. Ich habe nur noch das Problemn die Variable aus der Application Programm Lizenziert an meine Hauptfenster zu übergeben.

Besser gesagt ich erstell in meiner Application eine Variable KeyLiz, diese Kann ich allerdings in meinem Hauptfenster nicht abfragen.

Vieleicht noch eine Idee.

Hier mein Quellcode:

Delphi-Quellcode:

var
Key : String;
LIZENZ : String;
Reg : TRegistry;
KeyLizApp : Integer;
begin
  LIZENZ := 'DEMOVERSION';
  Reg := TRegistry.Create;                     // Registry-Objekt erzeugen
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.KeyExists ('\SOFTWARE\HU\PRINTSAVE\LIZENZ') = TRUE then
    begin
      if Reg.OpenKey('\SOFTWARE\HU\PRINTSAVE\LIZENZ',TRUE) = TRUE then
        Key := Reg.ReadString('LIZENZ')
      else
      Key := 'DEMOVERSION';
      end;
  Reg.Free;

  Application.Initialize;
    if LIZENZ = KEY then
    begin
      TFLizenz := TTFLizenz.Create(Application);
        if TFLizenz.ShowModal = mrOK then
          begin
            Application.CreateForm(TForm1, Form1);
            Form1.EDKey.Text := 'Lizenz ist OK';
            Application.Run;
          end
        else
            Application.CreateForm(TForm1, Form1);
            Form1.EDKey.Text := 'DEMOVERSION';
            Application.Run;
        end;
end.

Sonst erst schon mal herzlichen Dank DeddyH

Gruß Jens