Ver Mensaje Individual
  #13  
Antiguo 09-01-2009
vejerf vejerf is offline
Miembro
 
Registrado: ene 2007
Posts: 206
Reputación: 20
vejerf Va por buen camino
Pues me he precipitado al decir que todo iba bien. La cosa es que me falla al volver a iniciar la aplicación habiéndome registrado, entonces me vuelve a pedir el nº de serie como si no me hubiera registrado. No sé si el fallo está en la inicializáción del componente o donde. Os dejo el código a ver si veis algo extraño. Creo que en el dpr no está el fallo aunq lo dejo aquí.

Código Delphi [-]
var
  Registrado : Boolean;
  RegistroForm : TRegistroForm;
begin
  Application.Initialize;
  try
    RegistroForm := TRegistroForm.Create(nil);
    Registrado := RegistroForm.mxProtector.IsRegistered;
    if not Registrado then
    begin
      RegistroForm.ShowModal; //Formulario para registrarse en el que podemos o registrarnos o cancelar el registro
      Registrado := RegistroForm.mxProtector.IsRegistered;
      if not Registrado
        Application.Terminate
      else
        //Continuo con la aplicacion
    end
    else
      //Continuo con la aplicación
end;

Gracias.
__________________
"Patientia et constantia taelecum"
Responder Con Cita