CreateRegistrationRequestCertificateA

This function creates registration request certificate for the e-mail registration service.

function CreateRegistrationRequestCertificateA(stFilePath:AnsiString; stLicenseCode:AnsiString):Boolean;

Parameters

 stFilePath: AnsiString - certificate path.

 stLicenseCode: AnsiString - license code.

Return value

 Returns True if there are no errors.

 Returns False if some errors were occurred.

Requirements

 Library: IntelliProtectorDummy.lib

 Source: UnitIntelliProtector.pas

Example

uses UnitIntelliProtector;

//...

procedure TFormMain.CreateRegistrationRequestCertificate();

var

 saveDialog : TSaveDialog;    // Save dialog variable

begin

 saveDialog := TSaveDialog.Create(Self);

 if Length(editLicenseCode.Text) = 0 then

 begin

   MessageBox(Handle, 'Please specify the license code', 'License is empty', MB_OK);

   Exit;

 end;

 saveDialog.FileName := _certFilename;

 saveDialog.InitialDir := GetCurrentDir;

 saveDialog.Options := [ofOverwritePrompt, ofHideReadOnly];

 saveDialog.Filter := 'Data Files (*.dat)|*.dat|All Files (*.*)|*.*|';

 if saveDialog.Execute = TRUE then

 begin

   if IntelliProtector.CreateRegistrationRequestCertificateW(saveDialog.FileName, editLicenseCode.Text) = FALSE then

   begin

       MessageBox(Handle, 'Error, certificate is not saved!', '', MB_OK);

   end;

 end;

 saveDialog.Free;

end;