Evento adecuado para controlar si el software está registrado

[ContraVeneno]

yo lo pondría en el evento "OnCreate" de tu formulario principal y la primera instrucción, sería la inicialización del componente. Revisa la ayuda y los "demos" que hay sobre ese componente, en ellos se explica bastante bien como proteger la aplicación por fechas o por número de serie.

[dec]

Hola,

Aparte de lo dicho por el amigo Contra, echa un vistazo a este archivo "DPR":

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  URegisterForm in 'URegisterForm.pas' {RegisterForm};

{$R *.res}

begin
  Application.Initialize;

  with TRegisterForm.Create(nil) do
  try
    ShowModal();
  finally
    Free();
  end;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Como ves, se trata del archivo "DPR" de un proyecto "vacío" (aunque ya existe el formulario "Form1", que, es el principal) al que se le ha añadido otro formulario. Pues bien, antes de crear el formulario principal de la aplicación, como puedes ver, podemos crear y utilizar otro formulario, u otro componente. No sé si con esto ya coges la idea o no.

[vejerf]

Gracias a los dos,
Por una parte ya estaba trabajando en la solución de ContraVeneno porque me parecía lo más lógico, pero no tenía muy claro si funcionaría así o no por que el Registro también era un formulario. Por otra parte creo que entiendo tu idea Dec, aunque no sabía que se podía incluir código en el DPR. Creo que te aportación ha sido muy valiosa.
Ya por último y con la solución de ContraVeneno casi implementada me he encontrado con un problema. Si la aplicación está registrada va bien. Si se registra tb va bien. El problema es que no se tenga un número de serie válido y la aplicación deba finalizarse. En este caso debe terminarse sin dar ningún mensaje de aviso cosa que hago en el evento OnCloseQuery. ¿Hay alguna forma de finalizar la aplicación sin pasar por este evento?
Gracias de nuevo!!!

[dec]

Hola,

¿Hay alguna forma de finalizar la aplicación sin pasar por este evento?

Ya lo creo:

Código Delphi [-]
Application.Terminate();

Respecto del archivo "DPR", piensa que una aplicación de consola sólo cuenta con este archivo. Delphi nos "abstrae" del mismo, trabajando directamente con formularios, pero, como has visto, estos formularios se crean en el archivo "DPR", es ahí donde la aplicación se pone en marcha, y es perfectamente posible programar lo que se necesite ahí mismo. Y ya no digo más, que, luego todo se sabe.

[vejerf]

Joer macho es q sabeis de to!!! jeje
Gracias de nuevo... aunq prometo seguir dando más la lata

[ContraVeneno]

Revisa el demo sobre el componente que estas utilizando, ahí viene como comprobar las fechas de registro, el ID del hardware, el número de serie, etc... ese componente tiene un evento para cada situación. En otras palabras, en lugar de manejarlo en el OnCloseQuery, lo podrías manejar en el OnExpiration o en el OnInvalidSerialNumber, que son eventos del componente.

[roman]

Empezado por vejerf

El problema es que no se tenga un número de serie válido y la aplicación deba finalizarse

Por esto mismo, a mi me parece más adecuado lo que plantea dec porque, ¿para qué construir un formulario (el principal) si al final cabe la posibilidad de que no lo necesitemos?

Lo que pasa es que, dado que se trata de un componente, lo más cómodo es insertarlo en algún lugar, y lo más a la mano es el formulario principal; pero también puedes insertarlo en el formulario de registro y usar ahí los eventos que te indica ContraVeneno.

// Saludos

[vejerf]

Me parece muy buena tu idea Roman... así que intentaré llevarla a cabo. Si me encuentro con algún problemilla lo mismo voy variando los planes .
Gracias a todos!!!

[vejerf]

Hola de nuevo,
En una primera prueba de registro todo funciona perfectamente tal y como yo quería. La solución de incluir el formulario de registro en el .dpr antes de crear cualquier otro formulario me funciona muy bien.
Gracias a todos por vuestra inestimable e impagable ayuda

[vejerf]

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.