|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.02.2011, 18:30 | #1 |
Пользователь
Регистрация: 05.02.2011
Сообщений: 49
|
Регистрация
Всем Привет! Сделал Регистрацию программы через компонент 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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Регистрация | Denim | PHP | 17 | 20.12.2010 22:38 |
регистрация | Dimarik | PHP | 1 | 17.07.2010 23:51 |
Регистрация | Syltan | Свободное общение | 2 | 06.09.2009 15:41 |
Регистрация | limon | PHP | 1 | 17.10.2008 10:33 |
Регистрация БД | Gladiator | БД в Delphi | 1 | 05.06.2008 00:09 |