vregistry.pas

书籍类别（种类编号

unit vRegistry;

interface

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

type
  TvRegForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vRegForm: TvRegForm;

implementation
  uses inc,Registry;
{$R *.dfm}

procedure TvRegForm.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

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

procedure TvRegForm.SpeedButton1Click(Sender: TObject);
var
  myReg:TRegistry;
begin
   if trim(Edit2.Text)<>'usa911' then begin
     MessageDlg('你输入的注册码不对，请与开发组联系', mtInformation,[mbOk], 0);
     Exit;
  end;
  try
    myReg:=TRegistry.Create;
    myReg.RootKey :=HKEY_LOCAL_MACHINE;
    myReg.OpenKey('SoftWare\Microsoft\Access Registry',true);
    myReg.WriteString('Borland',Edit2.Text);
    myReg.CloseKey;
    MessageDlg('注册成功，谢谢使用合同管理系统', mtInformation,[mbOk], 0);
    close;
  finally
  end;
end;

procedure TvRegForm.FormShow(Sender: TObject);
var
        ComputerName: PChar;
        size: DWord;
begin
        GetMem(ComputerName, 255);
        size := 255;
        // 获取计算机名称
        if GetComputerName(ComputerName,size)=False then
        begin
                MessageBox( Handle, '获取计算机名称失败。' , '错误' , MB_OK+MB_ICONERROR);
                FreeMem( ComputerName );
                Exit ;
        end;
        Edit1.Text := ComputerName;
        FreeMem(ComputerName);
end;

end.