Entering the Liberation Key

Entering the LiberationKey

Once the user has the LiberationKey, he/she will access the frmEnterLiberationKey form to liberate the software. This is done by simply pressing the Enter Liberation Key button or on the Main Form or in the Warning form.

Note that this form could be called by the the Main and Warning form.

Here don't have much to say. In the Edit 1 the user will enter with the LiberationKey and will press the OK button. The system will verify if the key is correct. If yes, a message will appear confirming the correct entry and this window will close, returning to the Main form. If not correct, a message will appear informing that the LiberationKey isn't correct, returning to the Enter the Liberation Key form.

The user can Close the entire application and Continue as Trialware.

Let's treat the code to verify the LiberationKey:

procedure TfrmEnterLiberationKey.SpeedButton1Click(Sender: TObject);
begin
        //Here you'll assign the value of the Edit1 to the ActiveLock's
        //LiberationKey property that is in the Main form
1-      frmMainForm.ActiveLock1.LiberationKey:=Edit1.Text;

        //Now we'll verify if the key is correct
2-      if not(frmMainForm.ActiveLock1.RegisteredUser) then

                //If the key entered by the user isn't correct, an error message
                //will appear telling about the error.
                //You can put a counter here to limit the user entries. You can
                //allow only e tries at a time, then the application is closed.
                begin
3-              Application.MessageBox('The Liberation Key is not correct,
                        please retype it or e-mail us!','Liberation Key is not
                                 correct',MB_OK);
                end
                else

                //If the key is correct, the user receives a message telling
                //that the key was correct entered. Then this window is closed
                //and the application can run normally
                begin
4-              Application.MessageBox('The Liberation Key is correct!
                        Congratulations and Thank you!','Thank you!!!',MB_OK);
5-              frmMainForm.Caption:='ActiveLock Example Application';
6-              Close;
                end;
        end;