Hallo, ich habe nun folgendes probiert (siehe code unten). Dies würde ja super funktionieren, aber ich möchte bei der Inputbox eine überprüfung einbauen. Kann man das überhaupt machen? Die überprüfung soll so sein wie sie zum schluß meines Codes auch ist. Ich meine so eine IF then else abfrage. Geht dass überhaupt mit inputbox?
Grund ist folgender. Ich kann in die Inputbox einen beliebigen wert eingeben. Der wird in der Registry auch gespeichert. Aber bei der Überprüfung, (siehe letzten zeilen im code) wird dann das programm nicht mehr gestartet. Das möchte ich verhindern.
ODER: Nach der überprüfung (letzten Zeilen im code) soll entweder das Programm gestartet werden, wenn die überprüfung in Ordnung ist, sonst soll eben wieder das Login (inputbox) kommen.
Code:
procedure TKundendaten.FormCreate(Sender: TObject);
//var OK: Boolean;
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
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\SELF', True) then
begin
reg.WriteString('CODE??',inputbox('Programm freischalten','Code',''));
end;
end else if CheckCode(IntToStr(a),25, 7) then
Application.ShowMainForm := True;
end;
end;
Kann man das irgendwie anstellen?