softreg.pas

安邦售楼系统单机版 (DELPHI格式源码),比较实用

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发送到：[e-mail],索要序列号！';
      Edit4.Clear;
      Edit4.SetFocus;
      Btn1.Enabled := true;
      MainForm.A5.Enabled := true;
   End;
End;

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

End.