No he probado ningun otro ejemplo, solo segui los pasos de ese ejemplo y este es mi codigo
Generador serial
Código Delphi
[-]procedure TfrmGenerador.mxProtectorGetHardwareID(Sender: TObject;
var HardwareID: String);
begin
HardwareID := ID.Text;
end;
procedure TfrmGenerador.suiImageButton1Click(Sender: TObject);
begin
NumSerie.Text := mxProtector.GenerateSerialNumber(Trim(usuario.Text));
end;
Activador serial
Código Delphi
[-]procedure TfrmActivador.mxProtectorGetSerialNumber(Sender: TObject;
var UserName, SerialNumber: String);
begin
UserName := Trim(Usuario.Text);
SerialNumber := Trim(NumSerie.Text);
end;
procedure TfrmActivador.mxProtectorInvalidSerialNumber(Sender: TObject);
begin
Application.MessageBox('Nº de serie incorrecto','Consulte con el proveedor', MB_ICONSTOP);
end;
procedure TfrmActivador.mxProtectorUnknownHardware(Sender: TObject);
begin
Application.MessageBox('El hardware de este equipo es incompatible con este software.', 'Consulte con el proveedor', MB_ICONSTOP);
end;
procedure TfrmActivador.BRegistrarClick(Sender: TObject);
begin
mxProtector.Registration;
ComprobarRegistro;
if mxProtector.IsRegistered Then
begin
Application.MessageBox('Gracias por comprar el producto', 'Registro realizado', MB_ICONINFORMATION);
end;
end;
procedure TfrmActivador.ComprobarRegistro;
begin
if mxProtector.IsRegistered then
begin
Caption := 'Programa registrado';
BRegistrar.Enabled := False;
BDesinstalar.Enabled := True;
end
else
begin
Caption := 'Programa no registrado';
BRegistrar.Enabled := True;
BDesinstalar.Enabled := False;
end;
end;
procedure TfrmActivador.BDesinstalarClick(Sender: TObject);
begin
mxProtector.Reset;
Application.MessageBox('Ya puede desinstalar del producto','Registro cancelado', MB_ICONINFORMATION);
ComprobarRegistro;
end;
procedure TfrmActivador.FormCreate(Sender: TObject);
begin
ID.Text := mxProtector.GetHardwareID;
ComprobarRegistro;
end;
Disculpen mi ignorancia, pero no he visto ningún otro ejemplo de este componente