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