unitregister.pas

一个不错的系统

unit UnitRegister;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Registry, Buttons;

type
  TFrmRegister = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdtOrg: TEdit;
    EdtOwner: TEdit;
    EdtMail: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EdtAdd: TEdit;
    EdtTel: TEdit;
    EdtKey: TEdit;
    bbtnRegister: TBitBtn;
    bbtnClose: TBitBtn;
    Panel1: TPanel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EdtOrgExit(Sender: TObject);
    procedure bbtnCloseClick(Sender: TObject);
    procedure bbtnRegisterClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRegister: TFrmRegister;

implementation

uses UnitCommon;

{$R *.dfm}

procedure TFrmRegister.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFrmRegister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmRegister.EdtOrgExit(Sender: TObject);
begin
  With Sender as TEdit do
    Text:=Trim(Text);
end;

procedure TFrmRegister.bbtnCloseClick(Sender: TObject);
begin
  FrmRegister.Close;
end;

procedure TFrmRegister.bbtnRegisterClick(Sender: TObject);
var
  Reg:TRegistry;
begin
  if EdtOrg.Text='' then begin
    MessageBox(Handle,'请输入单位名称。                  ','系统警告',48);
    EdtOrg.SetFocus;
  end else
    if EdtOwner.Text='' then begin
      MessageBox(Handle,'请输入联系人名称。                  ','系统警告',48);
      EdtOwner.SetFocus;
    end else
      if EdtKey.Text='' then begin
        MessageBox(Handle,'请输入软件授权号。                  ','系统警告',48);
        EdtKey.SetFocus;
      end else begin
        if ChkReg(EdtKey.Text) then begin
          Reg:=TRegistry.Create;
          try
            Reg.RootKey := HKEY_LOCAL_MACHINE;
            if Reg.OpenKey('\SOFTWARE\HuiFeng\HFEIS\1.00',true) then begin
              Reg.WriteString('RegisteredOrganization',hf_encrypt(EdtOrg.Text));
              Reg.WriteString('RegisteredOwner',hf_encrypt(EdtOwner.Text));
              Reg.WriteString('RegisteredMail',hf_encrypt(EdtMail.Text));
              Reg.WriteString('RegisteredAdd',hf_encrypt(EdtAdd.Text));
              Reg.WriteString('RegisteredTel',hf_encrypt(EdtTel.Text));
              Reg.WriteString('RegisteredKey',hf_encrypt(EdtKey.Text));
              Reg.CloseKey;
            end;
          finally
            Reg.Free;
            inherited;
          end;
          BenRegistered:=true;
          FrmRegister.Close;
        end else begin
          MessageBox(Handle,'软件授权号非法。                  ','系统警告',48);
          EdtKey.SetFocus;
        end;
      end;
end;

procedure TFrmRegister.FormCreate(Sender: TObject);
var
  Reg:TRegistry;
begin
  if BenRegistered then begin
    Reg:=TRegistry.Create;
    try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      if Reg.OpenKey('\SOFTWARE\HuiFeng\HFEIS\1.00',true) then begin
        EdtOrg.Text:=hf_decrypt(Reg.ReadString('RegisteredOrganization'));
        EdtOwner.Text:=hf_decrypt(Reg.ReadString('RegisteredOwner'));
        EdtMail.Text:=hf_decrypt(Reg.ReadString('RegisteredMail'));
        EdtAdd.Text:=hf_decrypt(Reg.ReadString('RegisteredAdd'));
        EdtTel.Text:=hf_decrypt(Reg.ReadString('RegisteredTel'));
        EdtKey.Text:=hf_decrypt(Reg.ReadString('RegisteredKey'));
        Reg.CloseKey;
      end;
    finally
      Reg.Free;
      inherited;
    end;
    EdtAdd.ReadOnly:=true;
    EdtKey.ReadOnly:=true;
    EdtMail.ReadOnly:=true;
    EdtOrg.ReadOnly:=true;
    EdtOwner.ReadOnly:=true;
    EdtTel.ReadOnly:=true;
    bbtnRegister.Enabled:=false;
  end;
end;

end.