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);

      Procedure FormCreate(Sender: TObject);
      Procedure Edit4Change(Sender: TObject);
      Procedure btn1Click(Sender: TObject);
      Procedure btn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   Private
        { Private declarations }

   Public
        { Public declarations }
   End;

Var
   RegSoftForm      : TRegSoftForm;
   REG              : TRegistry;
Implementation
Uses MainUnit,REGUnit ;
{$R *.dfm}

Procedure TRegSoftForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
   REG.Free;
   Action := cafree;
   RegSoftForm := Nil;
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\HTPrinter', true);
      REG.WriteString ('KEY_ID',SN);
      txt1.Caption := '注冊成功!' + '請妥善保管序列號！';
      Application.MessageBox('注冊完畢，將關閉程序，請你重新啟動程序，謝謝！',
         '非正式用戶提示！', MB_ICONERROR + mb_OK + MB_SYSTEMMODAL);

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

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

procedure TRegSoftForm.Button1Click(Sender: TObject);
begin
 //Edit4.Text := GetSNFromMCode(Label1.Caption);
end;

End.