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,Clipbrd;

type
    TRegSoftForm = class(TForm)
        Edit4: TEdit;
        txt1: TStaticText;
        Label1: TLabel;
        AALabel1: TAALabel;
        AALabel2: TAALabel;
        Btn1: TLbButton;
        btn2: TLbButton;
    LbButton1: 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);
    procedure LbButton1Click(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;
    runs: integer;
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);
        runs:=0;
        REG.WriteBinaryData('runs', runs, SizeOf(runs));
        txt1.Caption := '注册成功!' + '请妥善保管序列号！';
        Application.MessageBox('注册完毕，将关闭程序，请你重新启动程序，谢谢！',
            '非正式用户提示！', MB_ICONINFORMATION + mb_OK + MB_SYSTEMMODAL);

        REG.Free;
        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;

procedure TRegSoftForm.LbButton1Click(Sender: TObject);
begin
  Clipboard.AsText:=  label1.Caption;
end;

end.