Lizenzabfrage vor Programmstart

[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