Samsung BQ4 Series User Manual download pdf (Page 169)

169

6º Y en el caso de que la clave sea incorrecta hacemos lo contrario dentro del

evento OnWrongPassword:

procedure TFPrincipal.mxProtectorWrongPassword(Sender:

TObject;

WrongPassword: string);

begin

EMensaje.Caption := 'Programa sin registrar';

BActivar.Enabled := True;

BDesactivar.Enabled := False;

Application.MessageBox('Clave de activación incorrecta',

'Consulte con su proveedor', MB_ICONSTOP);

end;

7º Para finalizar tenemos que pedir la clave al pulsar el botón Activar:

procedure TFPrincipal.BActivarClick(Sender: TObject);

begin

mxProtector.CheckPassword;

end;

8º Y eliminarla al pulsar el botón Desactivar:

procedure TFPrincipal.BDesactivarClick(Sender: TObject);

begin

mxProtector.Reset;

Application.MessageBox('Deberá introducir la clave de

activación de nuevo',

'Programa desactivado', MB_ICONINFORMATION);

BActivar.Enabled := True;

BDesactivar.Enabled := False;

end;

Vamos a probarlo. Al ejecutarlo, como no está registrado lo primero que hará es pedirnos

la clave:

Si nos equivocamos mostrará el mensaje de error:

Y el programa aparece en modo demo:

1 2 ... 164 165 166 167 168 169 170 171 172 173 174 ... 293 294

No comments

Samsung BQ4 Series User Manual Page 169