Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 25-06-2012
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 159
Poder: 15
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
MXProtector para Delphi 2010 vicacos Varios 14 03-06-2025 03:28:12
No compila D7 después de desinstalar mxprotector. Auyda!! to_to Varios 2 09-02-2012 20:06:22
ayuda componente cmm07 Varios 4 28-07-2008 23:25:52
Dónde puede conseguir los componentes MXProtector STONECOLD Varios 2 11-11-2007 23:20:13
utilizando componente mxProtector DM2005 Varios 2 12-08-2007 00:13:52


La franja horaria es GMT +2. Ahora son las 08:55:40.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi