Beskyt med en serial

brug matematik som fx 1242-2220-35489-4466 så skal den fx take de første 4 og så + med de neste som skal * med de næste osv også hvis det giver fx 9568887 i alt er den godkendt

eller hvis du fv laver2 edit (edit1 edit2) så skal den lave

if edit1.text + Edit2.text := '59448'
then
button1.visible := true
else
button1.visible := false

Hvordan gør jeg så hvis jeg vil bruge matematik

if FileExists('C:\Windows\System\abs.dcd') then
BeskyttetForm1.Show else
Showmessage('Du har ikke registreret');

og husk at fx locke den med et program so diverse scriptkiddies ikke kan finde ud af hvorfor en metode programmet er lånt med.

Galleon dit svar virker ikke.

formatc kom med et svar.

Når du har lavet dit program, opretter du en ny form. Så går du ind under Project -> Options, og sætter din nye form og navngiver den SerialForm, og sætter den til at være Main Form. Derefter sætter du en Edit1 og en Button1 på SerialForm og skriver følgende i Button1's OnClick:

if edit1.text = 'Din_Serial' then
  begin
    MainForm.showmodal;
    SerialForm.visible := false;
  end else Showmessage('Den indtastede Serial Key er ikke korrekt');

Husk så, at når brugeren klikker på Exit-knappen i dit program, så skal den ikke lukke din MainForm, men SerialForm med SerialForm.close;

Svar

Som dcgeek siger;

if FileExists('C:\Windows\System\abs.dcd') then
BeskyttetForm1.Show;
Registrerform1.Visible := false else
Showmessage('Du har ikke registreret');