Probleme mit Regedit und Form öffnen!!

[thomasdrewermann]

Also nochmal :D :

Code:

procedure TForm1.FormCreate(Sender: TObject);

var OK: Boolean;
reg:tregistry;
a:integer;
serial:string;
begin
  REG := TRegistry.Create;
  try
    try
      REG.RootKey := HKEY_CURRENT_USER;
      if REG.OpenKey('\Software\SELF', True) then
       begin
        if REG.ValueExists('CODE??') then a:=StrToInt(REG.ReadString('CODE??'))
        else a := 0;
        REG.CloseKey;
      end;
    except
       a := 0;
    end;
  finally
    REG.Free;
    if a=0 then
      begin
      serial:=inputbox('Seriennummer','Bitte geben sie ihre Seriennummer ein:','1234-1324-234');
      if serial ='' then
        application.Terminate else
        begin
        if CheckCode(serial,25, 7)=true then
          begin
          reg:=tregistry.Create;
          reg.RootKey:=HKEY_CURRENT_USER;
          if reg.OpenKey('\Software\SELF',True) then
            begin
            reg.WriteString('CODE??',serial);
            reg.free;
            end;
          end;
        end;
      end else
        begin
        if CheckCode(inttostr(a),25, 7)= false then
          begin
          serial:=inputbox('Seriennummer','Bitte geben sie ihre Seriennummer ein:','1234-1324-234');
          if serial ='' then
          application.Terminate else
            begin
            if CheckCode(serial,25, 7)=true then
              begin
              reg:=tregistry.Create;
              reg.RootKey:=HKEY_CURRENT_USER;
              if reg.OpenKey('\Software\SELF',True) then
                begin
                reg.WriteString('CODE??',serial);
                reg.free;
                end;
              end else    application.Terminate;
            end;
          end;
        end;
      end;
end;

[Luckie]

@Thomas und alle die es interessiert:
http://www.delphipraxis.de/viewtopic.php?p=1101#1101

[Christian Seehase]

Moin Zusammen,

nur wo ich gerade das Application.Terminate sehe:

Ablauf der Events beim Erzeugen/Schliessen eines Formulares

[thomasdrewermann]

Hi m-werk,
funztz jetzt? :?:

[m-werk]

Hi, ich glaube jetzt funktioniert es so wie es soll.

Ich habe nur noch was umgebaut.

if serial ='' then
application.terminate else

diese if serial habe ich beidemale ausgetauscht auf folgenden code:

if CheckCode(serial,25, 7)= false then
application.Terminate else

Grund war folgender. Wenn ich in die Inputbox z.B. nur '1234' eingegeben habe, dann ist zwar nichts in der Registry gestanden, aber das Programm hat sich trotzdem geöffnet.

Mit der Überprüfung, die ja immer sein soll, geht das jetzt nicht mehr.
Ich teste jetzt noch ne weile, aber fürs erste sieht es jetzt gut aus.

Sollte noch etwas nicht funktionieren betreffend der Inputbox, dann werde ich mich wieder melden.

Ich sage allen die mir geholfen haben DANKE, DANKE, DANKE