Licence Protector 5

 

You can download a sample source code for multiple compilers in the FAQ area on our website. This is the best way to start.

 

Find below a sample which covers complete basic license testing:

 

•open the license file with the EasyGo screens

•check if it is a time limited trial version - in case the trial expired, displays the screen: Evaluation period expired

•check if the system date was tampered with (only if CheckSysdateChangedwas used). In case of an error displays the screen: System date was tampered

•check if the product is activated - otherwise offers to use one of the specified activation methods

•check if copy protection is OK - in case of an error displays the screen: copy protection violation and try an automatic reactivation

•check if network license is OK - in case of an error displays the screen: No free license available

•check if a user / PC was deactivated -in in case of an error displays the screen: Network license -deactivated

 

 

 

 

// The sample source code requires a registered Licence Protector dll. The dll is already installed and registered when you install the software development kit including the Licence Generator.

 

 iRes := 0;

 sTag := '';

 sReadKey := 'r1lkYAp1xGQN81fBrcZ1dfXtw1doy3Z1l4KHy0N2yvL0ZBDcX274DHV1BfV7s0'

     + 'RFpjZ1NOmMf1qXGsu1MqTXK1t4Tsq1c7jQq1iP3VM1NNx6j1s64YK299TY71YSrbK0NdSo'

     + 'm29inxM29bPTJ1mmLNV0SNdC41xCbdT2adSqt2aazQL1dslWy1fGXFi11YWOv1fFhLt2ac'

     + 'ufE1hRGXY1VxH0R0ViybX0XmcNz1lm76W1gQqQe21grLU1VAc401UqH8l0YHwOD1S46cC20hVpD1cfAYk299ixt';

  result := true;

 

 // the example needs the licence file: demo-easygo.lic

 

 

     lic := CreateOleObject('LicProtector.LicProtectorDLL510');

  except

     on E: Exception do

     begin

        ShowMessage('No or wrong LicenceProtector installed: ' + E.Message);

        result := false;

     end;

  end;

 

  if result then

  begin

     try

   

 

        lic.SecurityLevel := 1;// use 1 for Security Level ADVANCED

 

       

       

        lic.SetLanguage(0);    // Set Default language using the language settings of the operating system  - parameter changed from integer to string

        lic.SetRegisterLanguages (‘1;2;3;4;6;7;8;9;10;11;12;13;14;15’);  //user can select a language

        lic.SetOpenShareMode (0)  //access mode for network license

        lic.SetBackupInterval (60)  //network license - backup of license file

        lic.CheckSysdateChanged := true;   // Check for system date modification

 

        iRes := lic.SetRegisterLicTransfer(true, ‘default’, ‘this is like a password string’);  //activate license transfer option

 

       bOk:=  lic.SetNewsletter(1, ‘Licence Protector Newsletter%%1%%Inside Licence Protector%%3%%Licence Protector bulletin d'information%%9%%Licence Protector boletín de noticias‘); //collect newsletter information

 

        bOk := lic.SetNewsletter(2, ‘Inside All-In-One Protector’);

     

        lic.SetRegisterSettings('blackboard.jpg',                // Image that is displayed in the Registration form (has to be of format JPEG)

                 true,           // allow License Viewer

                 true,           // Serial is an Activation Key or use your own ID for product activation

                 'Mirage Computer Systems', // Name of the manufacturer

                    'E-Learning Made Easy',      // Name of the product

                 true,           // use Online-Activation - needs Activation Server

                 true,           // Activation by e-mail?

                 'registereasygo@registerserver.net', // e-mail-address for activation requests

                       '',         // Subject of the eMail (if empty a default text is used)

                 true,                        // Activation by fax

                 '+49 32121203546, // Fax-Number for incoming Activation requests

                 true,           // Activation by phone

                 '+49 7525/529339', // phone number for activation requests

                 'Your registration information is sent to our Activation Center. Please allow 1 to 2 business days to send an Unlock Key.',

                 // additional text for e-mail and fax, may be empty

                 0,                                // Default Registration 0 = online, 1 = eMail, 2 = fax, 3 = phone

                 'http://www.mirage-systems.de/licence-protector/order.html',     // URL for buying the product

                  'http://www.helpserver.biz/onlinehelp/lp/easygo/3.0/activationhelp/index.html',      // URL for online help

                 ' ', //background image

                 1, //workflow- evaluation version, activate full version. May not be empty if license files with previous versions should be used        

                 1, //collect Basic Activation Data

                 

                 'support@mycompany.com',  //address for support
                 false// - full version has no time limitation or is time limited

                 );                        

 

         

                 iRes := lic.PrepareAndCheck('demo-easygo.lic', sReadKey, 'CU001', '', true, false, sTag);