Регистрация

[Умагаджи]

Всем Привет! Сделал Регистрацию программы через компонент mxProtector. Но призапуске проги окно регистрации т.е. ввода серийного номера постоянно запускается. Как сделать так чтобы при первом запуске можно было ввести номер а при след запусках программы проверять серийный номер введенный первый раз и сразу запускать прогу. Вот код:


Procedure Tfrm_MainWindow.FormCreate( Sender: TObject );
Begin
ProcessRights;
btn_Go.Enabled:=False;
End;

Procedure Tfrm_MainWindow.ProcessRights;
Begin
btn_Go.Enabled := mxProtector.IsRegistered;
grp_Reg.Enabled := Not mxProtector.IsRegistered;
btn_GetSer.Enabled := Not mxProtector.IsRegistered;
btn_Register.Enabled := Not mxProtector.IsRegistered;
btn_Reset.Enabled := mxProtector.IsRegistered;
Edit_UserName.Enabled := Not mxProtector.IsRegistered;
Edit_Serial.Enabled := Not mxProtector.IsRegistered;
btn_Register.Enabled := ( Edit_UserName.Text <> '' ) And ( Edit_Serial.Text <> '' ) And ( Not mxProtector.IsRegistered );

If mxProtector.IsRegistered Then
Begin
label1.Caption := 'Зарегистрированная версия';
Label5.Caption := 'Спасибо за регистрацию!';
End
Else
Begin
label1.Caption := 'Shareware Edition';
Label5.Caption := 'Для запуска программы получите Номер!';
End;
End;

Procedure Tfrm_MainWindow.btn_CancelClick( Sender: TObject );
Begin
Close;
End;

Procedure Tfrm_MainWindow.btn_GoClick( Sender: TObject );
Begin
// MessageDlg( 'It is a registered feature!', mtInformation, [ mbOK ], 0 );
Form2.Show;
frm_MainWindow.Visible:=False;
End;

Procedure Tfrm_MainWindow.btn_ResetClick( Sender: TObject );
Begin
mxProtector.Reset;
MessageDlg( 'Регистрация удалена', mtInformation, [ mbOK ], 0 );
ProcessRights;
End;

Procedure Tfrm_MainWindow.btn_RegisterClick( Sender: TObject );
Begin
mxProtector.Registration;
ProcessRights;
btn_Go.Enabled:=True;
End;

Procedure Tfrm_MainWindow.Edit_SerialChange( Sender: TObject );
Begin
btn_Register.Enabled := ( Edit_UserName.Text <> '' ) And ( Edit_Serial.Text <> '' );
End;

Procedure Tfrm_MainWindow.btn_GetSerClick( Sender: TObject );
Begin
Edit_Serial.Text := mxProtector.GenerateSerialNumber( Edit_UserName.Text );
End;

Procedure Tfrm_MainWindow.mxProtectorGetSeria lNumber( Sender: TObject; Var UserName, SerialNumber: String );
Begin
UserName := Edit_UserName.Text;
SerialNumber := Edit_Serial.Text;
End;
*********************************** *********************************** ************

Procedure Tfrm_MainWindow.btn_AboutClick( Sender: TObject );
Var
S: String;
Begin
If mxProtector.GetRegisteredUserName = '' Then
S := 'Незарегистрированная копия программы!' Else
S := 'Программа зарегистрирована для'#13#10 + mxProtector.GetRegisteredUserName;

MessageDlg( S, mtInformation, [ mbOK ], 0 );
End;

Procedure Tfrm_MainWindow.mxProtectorInvalidS erialNumber( Sender: TObject );
Begin
MessageDlg( 'Неправильный серийный номер!', mtError, [ mbOK ], 0 );
End;