Unit SoftReg;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Registry, GetCPUID, StdCtrls, BiosHelp, md5, shellapi, AAFont,
   AACtrls, LbButton;

Type
   TRegSoftForm = Class(TForm)
      Edit4: TEdit;
      txt1: TStaticText;
      Label1: TLabel;
      AALabel1: TAALabel;
      AALabel2: TAALabel;
      Btn1: TLbButton;
      btn2: TLbButton;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Function GetMachineCode: String;
      Function GetSNFromMCode(MCode: String): String;
      Procedure FormCreate(Sender: TObject);
      Procedure Edit4Change(Sender: TObject);
      Procedure btn1Click(Sender: TObject);
      Procedure btn2Click(Sender: TObject);
   Private
        { Private declarations }

   Public
        { Public declarations }
   End;
Var
   RegSoftForm      : TRegSoftForm;
   REG              : TRegistry;
Implementation
Uses MainUnit;
{$R *.dfm}

Procedure TRegSoftForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
   REG.Free;
   Action := cafree;
   RegSoftForm := Nil;
End;

Function TRegSoftForm.GetMachineCode: String;
Var
   ID1, ID2         : String;
Begin
   ID1 := GetCPUID.CpuData.GetCPUID;
   ID2 := BiosHelp.GetmotherboradKey;
   result := Copy(MD5Print(MD5String(ID1 + ID2)), 0, 8);
End;

Function TRegSoftForm.GetSNFromMCode(MCode: String): String;
Begin
   result := MD5Print(MD5String(MCode));
End;

Procedure TRegSoftForm.FormCreate(Sender: TObject);
Begin
   REG := TRegistry.create;
   Label1.Caption := GetMachineCode;
End;

Procedure TRegSoftForm.Edit4Change(Sender: TObject);
Begin
   Btn1.Enabled := Length(Edit4.Text) > 0;
End;

Procedure TRegSoftForm.btn1Click(Sender: TObject);
Var
   SN               : String;
Begin
   SN := GetSNFromMCode(Label1.Caption);
   If StrComp(pchar(SN), pchar(Edit4.Text)) = 0 Then Begin
      REG.RootKey := HKEY_LOCAL_MACHINE;
      REG.OpenKey('SOFTWARE\ABICO', true);
      REG.WriteInteger('Plays', 2005);
      txt1.Caption := '注冊成功!' + '請妥善保管序列號！';


      Application.MessageBox('注冊完畢，將關閉程序，請你重新啟動程序，謝謝！',
         '非正式用戶提示！', MB_ICONERROR + mb_OK + MB_SYSTEMMODAL);

      Application.Terminate;
   End
   Else Begin

      txt1.Caption := '注冊失敗!' + #13 +
         '請將上面的機器碼用EMAIL發送到：2238889@163.com,索要序列號！';
      Edit4.Clear;
      Edit4.SetFocus;
      Btn1.Enabled := true;
      MainForm.A5.Enabled := true;
   End;
End;

Procedure TRegSoftForm.btn2Click(Sender: TObject);
Begin
 
      Close;
End;

End.