|
 EVENTOS
(No implementdo todavía para la versión .NET)
OnStartError
Ocurre cuando se inicia el programa (el método start ejecutado) y un error ocurre al intentar leyendo el fichero avconfig.ini.
type TOnStartErrorEvent = procedure (error:integer) of object;
property OnStartError : TOnStartErrorEvent;
Description
Utilice el manejador de evento OnStartError para brindar al usuario información sobre el error ocurrido en el método start al leer el fichero avconfig.ini file.
El parámetro Error retorna un numero que indica el tipo de error ocurrido:
1: El fichero avconfig.ini no existe
2: Fichero avconfig.ini erroneo
BeforeRegisterKey
Ocurre antes de proceder a la registración de cada una de las claves enviadas para registración dentro del parámetro KeyList del método DoMasterReg.
type TBeforeRegisterKeyEvent = procedure (RegKey:string; KeyNo, StartDate, Days, Users, ModuleNo:word; InstallCode, Name, Company:string; var Proceed:boolean) of object;
property BeforeRegisterKey : TBeforeRegisterKeyEvent;
Description
Utilice el manejador de evento BeforeRegisterKey para brindar a los usuarios información sobre la clave corriente enviada para registración teniendo la oportunidad de continuar o abortar la registración mediante el parámetro variable Proceed. Vea en el programa Demo3 un ejemplo de como utilizarlo.
El parámetro RegKey contiene la clave corriente a ser registrada.
El parámetro NeyNo contiene el número de orden de la clave corriente dentro de la lista de claves enviadas en el parámetro KeyList del método DoMasterReg.
StartDate, Days, Users, ModuleNo and InstallCode son parámetros que contienen valores que vienen incrustados dentro de la clave de registración RegKey.
El parámetro StartDate contiene la fecha de inicio el periodo autorizado.
El parámetro Days contiene el número de días autorizados.
El parámetro Users contiene el numero de usuarios concurrentes autorizados.
El parámetro ModuleNo contiene el numero de módulo, 0 para el módulo principal y 1..254 para módulos extra.
El parámetro InstallCode contiene un codigo de seis digitos coincidente con los seis primeros digitos del InstallCode.
El parámetro Name y Company contienen los valores pasados en el método DoMasterReg.
El parámetro variable Proceed (True inicialmente) puede ser cambiado a fin de autorizar o no la registración.
AfterRegisterKey
Ocurre después de realizada la registración para cada clave enviada en el parámetro KeyList del método DoMasterReg.
type TAfterRegisterKeyEvent = procedure (RegKey:string; KeyNo:word; Status: integer) of object;
property AfterRegisterKey : TAfterRegisterKeyEvent;
Description
Utilice el manejador de evento AfterRegisterKey para brindar al usuario información sobre el resultado de la registración de la clave corriente enviada en el parámetro RegKey. Vea en el programa Demo3 un ejemplo de como utilizarlo.
El parámetro KeyNo contiene el número de orden de las claves registradas.
El parámetro Status retorna un número indicando el resultado de la registración como sigue:
0 = Registrado
1 = Longitud de clave incorrecta
2 = Módulo inexistente
3 = fecha del sistema incorrecta
4 = Nombre de usuario no coincide
5 = Registracion Removida
6 = No se puede registrar un módulo extra sin haber registrado antes el módulo principal.
7 = Nombre de usuario muy corto
8 = Se intentó registrar un módulo extra con un nombre de usuario diferente que el del módulo principal.
9 = RegKey no válido
AfterRegisterAll
Ocurre después que todas las claves del parámetro KeyList en el método DoMasterReg han sido enviadas para registración.
type TAfterRegisterAllEvent = procedure (SubmittedKeys,RegisteredKeys:word) of object;
property AfterRegisterAll : TAfterRegisterAllEvent;
Description
Utilice el manejador de evento AfterRegisterAll para brindar al usuario información sobre el número de claves enviadas para registración y el número de claves registradas de las claves enviadas en el parámetro KeyList del método DoMasterReg. El parámetro SubmittedKeys contiene el número de claves enviadas y RegisteredKeys el número de claves registradas con éxito. Vea en el programa Demo3 un ejemplo de como utilizarlo.
OnRegularRegistration
Ocurre después que una clave ha sido enviada para registración con el método DoRegularReg.
type TOnregularRegistrationEvent = procedure (Error:integer) of object;
property OnRegularRegistration : TOnRegularRegistrationEvent;
Description
Utilice el manejador de evento OnRegularRegistration para brindar al usuario información sobre el resultado de la registración de una clave con el método DoRegularReg. See in the Demo3 program a sample about how to use it. Vea en el programa Demo3 un ejemplo de como utilizarlo.
El parámetro Error retorna un número indicando el resultado de la registración a saber:
0: Sin error (Registrado)
1: Claves genéricas no permitidas aquí
2: RegKey inválido
3: No se pudo escribir en el registro de Windows.
4: El nombre de usuario no coincide
OnRequestName
Occurs when the DoRequestName method is called.
type TOnRequestNameEvent = procedure (var UserName, Company:string) of object;
property OnRequestName : TOnRequestNameEvent;
Description
Use the OnRegularRegistration event handler to replace the standard RequestName feature by your own procedure, supplying
the UserName and Company parameters. See in the Demo3 program a sample about how to use it.
OnMoveReg
AfterMoveReg
Occurs when the MoveReg method is called.
type TOnMoveRegEvent = procedure of object;
TAfterMoveRegEvent = procedure of object;
property OnMoveReg : TOnMoveRegEvent;
AfterMoveReg : TAfterMoveRegEvent;
Description
Use these events handlers to replace the standard MoveReg features by your own procedures.
OnMoveReg is for the step one, which get from the user the InstallCode and translates the old registration keys for the new machine.
AfterMoveReg is the step two, which displays the new registration keys. See in the Demo3 program a sample about how to use it.
OnMaxActiveUsers
Ocurre cuando el número de usuarios activos alcanza el limite establecido por MaxUsers.
type TOnMaxActiveUsersEvent = procedure (instance:TInstance) of object;
property OnMaxActiveUsers : TOnMaxActiveUsersEvent;
TInstance = record
UserName : TUserName;
LoginTime : TDateTime;
LogoutTime: TDateTime;
Active : Boolean;
end;
Description
Utilice el manejador de evento OnMaxActiveUsers para dar al usuario la posibilidad de cambiar el comportamiento cuando el número de usuarios activos llega al limite MaxUsers, en forma predeterminada para esta situación surge un cuadro de mensaje "Demasiados usuarios activos" y el programa termina.
Puede utilidar la estructura TInstance para brindar un mensaje personalizado, por ejemplo:
procedure TForm1.AVLockG51MaxActiveUsers(instance: TInstance);
begin
showmessage('Too many users : '+instance.UserName);
Application.Terminate;
end;
Si hay algo que no quedó claro o tiene preguntas no respondidas por esta ayuda, por favor no dude en contactarnos en nuestro sitio http://valega.com/contacto.php.
| 
