UseRegistrationResponseCertificateA

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

function UseRegistrationResponseCertificateA(stFilePath:AnsiString):Boolean;

Parameters

 stFilePath: AnsiString - certificate response path.

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.UseRegistrationResponseCertificate();

var

 openDialog : TOpenDialog;  

begin

 openDialog := TOpenDialog.Create(Self);

 openDialog.FileName := '*.dat';

 openDialog.InitialDir := GetCurrentDir;

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

 if openDialog.Execute = TRUE then

 begin

   if IntelliProtector.UseRegistrationResponseCertificateA(openDialog.FileName) = FALSE then

   begin

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

   end;

 end;

 openDialog.Free;

 UpdateStatus();

end;