Inno Setup Lizenz abfragen

[Osse]

Hey Mathias,

habs ja so versucht, aber ich bekomme immer die 100 als Rückgabewert, obwohl ich die 3 bekommen müsste???
Naja, hätte ja sein können, das jemand das weiß.

So funktionierts net, obwohl es nach meiner kleinen "Logik" richtig sein müsste:
[code=delphi]

Code:

var
   Page: TInputQueryWizardPage;

procedure InitializeWizard;
BEGIN
   Page:=CreateInputQueryPage(wpPassword,'Lizenzabfrage', 'PEAK Lizenz abfrage', 'Bitte geben Sie die Lizenz des PEAK-Treibers ein und drücken Sie Weiter');
   Page.Add('Lizenzcode ', False);
END;


FUNCTION NextButtonClick(CurPageID:Integer):Boolean;
BEGIN

  IF CurPageId = wpPassword THEN
    BEGIN
      IF (Page.Values[0] = '#211660') OR (Page.Values[0] = '#211661') OR (Page.Values[0] = '#211662')
      OR (Page.Values[0] = '#211663') OR (Page.Values[0] = '#211664') OR (Page.Values[0] = '#211665')THEN
        BEGIN
          Result:=TRUE;
        END
      ELSE
        BEGIN
          Result:=FALSE;
          if MsgBox('Die Lizenz ist nicht korrekt. Bitte versuchen Sie es erneut!', mbConfirmation, MB_OK) = IDOK then
            BEGIN
              Page.Values[0] := ' ';
            END;
        END;
    END
   Else
    BEGIN
      Result := True;
    END;

END;