Ver Mensaje Individual
  #5  
Antiguo 25-06-2012
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Reputación: 13
steelha Va por buen camino
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
Responder Con Cita