softreg.pas

商品房合同套打程序

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发送到：[e-mail],索要序列号！';
      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.